Question

在Excel工作簿中，我有5个特定的工作表（不同的名称），我希望将数据连接到同一工作簿中的不同工作表（主）。只需从每张纸上获取数据并将其附加到＆＃34; Master＆＃34;中的数据底部。片。如果可能，还要删除空白行。有没有可以做到这一点的宏？

Answer 1

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

假设您确实需要一个宏，这样的东西可能会起作用：

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

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

1 个答案: