如何在VBA中更有效地将范围从一个工作簿复制并粘贴到另一个工作簿？

我已经想出了如何从一个工作簿复制和粘贴到另一个，但它不是最有效的。 我想从一个工作簿中复制一个范围，并将其粘贴到另一个工作簿中的单元格A3中。 这里是我的代码（我已经设置了所有的variables，我只是没有包括在这个问题中）：

Dim wb1 As Workbook Dim wb2 As Workbook Dim wb1s1 As Worksheet Dim wb1s2 As Worksheet Dim wb2s1 As Worksheet Dim wb2s2 As Worksheet wb1.Activate With wb1s1 .Range(.Range("A14"), .Range("F" & .Rows.Count)).Copy End With wb2.Activate With wb2s1 .Range("A3").PasteSpecial xlPasteAll End With wb1.Activate With wb1s2 .Range(.Range("A14"), .Range("F" & .Rows.Count)).Copy End With wb2.Activate With wb2s2 .Range("A3").PasteSpecial xlPasteAll End With 

现在，我已经尝试了这一行代码来提高效率，但它不适合我。

 wb1.wb1s1.Range("A14", ("F" & Rows.Count)).Copy Destination:=wb2.wb2s1.Range("A3") 

我得到错误“对象不支持此属性或方法”。 任何帮助将不胜感激。

Answer 1

我想你不应该双引用工作表。

尝试

 wb1s1.Range("A14", ("F" & Rows.Count)).Copy Destination:=wb2s1.Range("A3") 

工作簿wb1不支持“属性或方法”wb1s1，wb2也不支持wb2s1