将不同工作簿的多个Excel工作表复制到单个工作簿中

Question

问题：如何将不同工作簿的多个Excel工作表复制到单个工作簿中，而不是逐个单元格复制，因为它会产生性能问题，因为我在工作表中有大量数据。是否有任何选项可以复制整个工作表而不使用 Java 迭代每个单元格。只需将整个工作表复制到其他工作表中即可。

Answer 1

下面将从您设置的工作簿中复制每个工作表。我将复制它并将其粘贴到当前工作簿的工作表列表的末尾

Sub CopyWorkbook()
Dim sh as Worksheet,  wb as workbook
Set wb = workbooks("Target workbook")
For Each sh in workbooks("source workbook").Worksheets
sh.Copy After:=wb.Sheets(wb.sheets.count) 
Next sh
End Sub