所以我一直尝试将多张工作表中的多个数据复制到一张工作表中,如何从多张工作表中选择所有列,并将它们放在其他工作表中?
答案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)。
希望这对你有帮助。