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

1 回答

• 0

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

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

  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
  

  回复于 2024-04-27T22:12:57+08:00