VBA复制和粘贴

Question

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

如何将.PasteSpecial xlPasteValues与上述代码一起使用？

Answer 1

假设您已正确定义和分配了rng变量，您可以执行以下操作：

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

它需要分成两行。

Answer 2

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