VBA複製並粘貼

Set wbNew = Workbooks.Add 
     rng.Copy Destination:=wbNew.Sheets(1).Range("A1:D30")

如何將.PasteSpecial xlPasteValues與上面的代碼一起使用？VBA複製並粘貼

來源

2014-06-25 user3291887

您是否嘗試錄製宏以獲取語法？ – sous2817

你在混合兩個陳述。 'Set wbNew = Workbooks.Add'創建一個新的空工作簿。 'rng.Copy Destination：= wbNew.Sheets（1）.Range（「A1：D30」）'將'rng'的內容複製到指定的目的地。 '拷貝'是您不需要的拷貝和粘貼的VBA等效物。 –

假設你有RNG變量定義和分配得當，你可以這樣做：

Rng.Copy 
wbNew.Sheets(1).Range("A1:D30").PasteSpecial xlPasteValues

它需要在兩條獨立線路。

來源

2014-06-25 18:09:36

wbNew = Workbooks.Add 
rng.Copy 
wbNew.Sheets(1).Range("A1:D30").PasteSpecial Paste:=xlPasteValues

來源

2014-06-25 18:10:43

VBA複製並粘貼

回答

相關問題