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复制并粘贴

回答

相关问题