来自多个工作表的 Excel 列

来自多个工作表的 Excel 列

所以我一直尝试将多张工作表中的多个数据复制到一张工作表中,如何从多张工作表中选择所有列,并将它们放在其他工作表中?

答案1

下面编写的 VBA 代码可帮助您一次性将活动工作簿的所有工作表中的数据复制到新工作表中。但请记住,当所有工作表必须具有相同的数据结构(即相同的列数和行数)时,此代码才能正常工作。

    Sub CommandButton1_click()

    Dim J As Integer
    On Error Resume Next

    Sheets(1).Select

    Worksheets.Add

    Sheets(1).Name = "Combined Sheet"
    Sheets(2).Activate

    Range("A1").EntireRow.Select

    Selection.Copy Destination:=Sheets(1).Range("A1")

   For J = 2 To Sheets.Count
     Sheets(J).Activate
    Range("A1").Select

   Selection.CurrentRegion.Select
     Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
      Selection.Copy Destination:=Sheets(1).Range("A2000").End(xlUp)(2)
   Next

   End Sub

注意:在上面的 VBA 代码中,我从单元格 A1 中选择,这意味着每个 Sheet 中的数据范围都从 A1 开始。但您可以根据需要用其他单元格替换起始单元格(A1)。

希望这对你有帮助。

相关内容