Vba 将多个Excel工作表中的数据连接到一个Excel工作表中

在Excel工作簿中，我有5个特定的工作表（不同的名称），我希望将其中的数据连接到同一工作簿中的不同工作表（主工作表）中。只需从每张工作表中获取数据并将其附加到“主”工作表中数据的底部即可。如果可能，还可以删除空行。是否有宏可以执行此操作

有几种选择。如果只需要执行一次，就不用麻烦使用宏了。只需转到每个工作表，复制行，移动到主工作表，向下滚动到第一个空行，然后粘贴即可

假设您确实需要一个宏来执行此操作，类似这样的操作可能会起作用：

Sub CombineSheets()
  Dim Wksht As Worksheet, MasterSht As Worksheet, R As Integer

  Set MasterSht = Worksheets.Add
  R = 0

  For Each Wksht In ThisWorkbook.Worksheets
    If Not Wksht Is MasterSht Then
        Wksht.UsedRange.Copy Destination:=MasterSht.Cells(R + 1, 1)
        R = MasterSht.UsedRange.Rows.Count
    End If
  Next Wksht
End Sub

---

到目前为止你试过什么？一般来说，这里的问题是帮助调试工作不好的东西，而不是从头开始为您编写代码。还有，你到底想做什么？所有的工作表是否都是相同的格式（即相同的列）？@hpf-嗨，我在互联网上搜索了很多脚本，但都没有成功。所有图纸的格式完全相同。基本上我想把5张表中的所有数据合并成一张。因此，5张每张表上有200行数据，合并成一张有1000行数据的主表。非常感谢。但是，这只能复制一个工作表，而不是全部工作表。如何指定要复制的工作表？是否要求多个工作簿？此脚本在一个工作簿中的所有工作表中循环。Hi@hpf。否，仅在同一工作簿中执行。我创建了一个“测试”工作簿，其中有3张工作表，所有工作表都有不同的数据。在“测试”工作簿中运行代码时，将创建一个新工作表（添加名称），并将第一个工作表中的数据复制到其中，而不是所有工作表中的数据。