Question

我正在为一个相当大的数据集编写一个复制粘贴函数，以便从一个工作簿复制到另一个工作簿中的特定工作表。我已经编写了波纹管代码，希望它尽可能高效地复制粘贴，但是在调试期间，代码显示根本不起作用，它不会复制或粘贴任何东西，我不明白为什么，有没有人有任何想法/解决方案？提前谢谢

Windows("TempResults.xlsm").Activate
numofrows = ActiveSheet.UsedRange.Rows.Count
Workbooks("TempResults.xlsm").Sheets("Sheet1").Range("A2", "AE" & CStr(numofrows)).Copy Destination:=Workbooks("Excel Results Extractor V2.xlsm").Sheets("Gate_Results").Range("A1").End(xlDown).Offset(1, 0)

Answer 1

我想这就是你想要的

Windows("TempResults.xlsm").Activate
numofrows = ActiveSheet.UsedRange.Rows.Count
Workbooks("TempResults.xlsm").Sheets("Sheet1").Range("A2", "AE" & CStr(numofrows)).Copy Destination:=Workbooks("Excel Results Extractor V2.xlsm").Sheets("Gate_Results").Range("A1")

Answer 2

关于您的问题中表达的效率问题：您可以尝试其他方法，如下所示：

Workbooks("Excel Results Extractor V2.xlsm").Sheets("Gate_Results").Range("A1").Value = Workbooks("TempResults.xlsm").Sheets("Sheet1").Range("A1").Value

尝试查看其工作原理，然后根据您的情况修改范围。希望这会有所帮助。的问候，

如何有效地在工作簿之间复制大范围？

2 个答案: