Excel中怎么把相同表头的xls文件合并成一个excel的代码-棋盘——胡伽奇的个人博客-胡伽奇的个人小站 - JiaqiH.com - Jack's Blog

Excel的办公小技巧/5+7收集的办公会小技巧/Excel办公小知识

Excel中怎么把相同表头的xls文件合并成一个excel的代码！

1、在同文件夹（一定要把要合成文件放在一个文件夹，并且吧xlsx的文件都转换成xls文件）新建一个空白表格；

2、在sheet上点右键，查看代码；

3、复制下面的代码，黏贴到代码栏；

4、F5运行；

Sub 汇总()
Application.ScreenUpdating = False
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Set sh = ThisWorkbook.Worksheets(1)
f = Dir(ThisWorkbook.Path & "\*.xls*") '生成查找EXCEL的目录,可以适应不同版本
Do While f <> "" '在目录中循环
If f <> ThisWorkbook.Name Then  '如果不是打开的工作簿
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f) '依次打开目录工作薄
   n = n + 1
   If n = 1 Then
   arr = wb.Worksheets(1).[a1].CurrentRegion
   Else
      arr = wb.Worksheets(1).[a1].CurrentRegion.Offset(1)
End If
sh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
    wb.Close False '关闭打开的工作薄
    End If
    f = Dir
    Loop '结束循环
    MsgBox "共汇总了" & n & "个文件"
    Application.ScreenUpdating = True
End Sub