EXCEL中多个SHEET某列的汇总数据汇总到一个新的SHEET中。如果使用宏代码？

EXCEL中多个SHEET某列的汇总数据汇总到一个新的SHEET中。如果使用宏代码？

Sub 合并多工作簿及多工作表()
Dim MyPath As String, MyFile As String, i As Integer
Dim Wb As Workbook, arr
Application.ScreenUpdating = False
MyPath = ThisWorkbook.Path
MyFile = Dir(MyPath & "\*.xls")
Do Until MyFile = ""
If MyFile <> ThisWorkbook.Name Then
Set Wb = Workbooks.Open(MyPath & "\" & MyFile)
For i = 1 To Wb.Worksheets.Count
arr = Sheets(i).UsedRange
ThisWorkbook.Sheets(i).Range("A" & rows.count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
Next
Wb.Close
End If
MyFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

操作方法如下： 将原表复制若干个表，每个表里删除不需要的列。