如何把一个excel文件里的几千张sheet合并成一张sheet(表结构都相同的)

来源：百度知道 编辑：UC知道 时间：2024/06/22 21:43:44
是蛮多个电子表格合并到一个里面，我要用高级筛选去重

Sub Macro1()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
For i = 1 To 23
Workbooks.Open Filename:="1 (" & i & ").xls"
ActiveSheet.Range("A1").CurrentRegion.Select
Selection.Copy
Windows("Book1.xlsm").Activate
Range("a1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows("1 (" & i & ").xls").Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

在工具菜单下的宏里，选vba编辑器，粘贴如下代码
Sub Macro1()
'
' Macro1 Macro
'
I = 0
For Each XSHEET In Sheets
ActiveCell.SpecialCells(xlLastCell).Select
CNT = ActiveCell.Row
Range(Selection, Cells(1)).Select
Selection.Copy

Sheets("Sheet1").Cells(I + CNT + 1, 1).PasteSpecial