Excel多个文件合并--结构相同

1、新建一个Excel文档并打开

2、在Sheet1中A1，A2，A3...依次填入要合并的Excel文件地址，比如D:铳曹扑钜\11.xls，E:\22.xlsx...

3、按下快捷键Alt+F11打开VBA宏编辑器

4、插入->模块，在新建的“模块1”下面输入以下代码Public Sub addlist()Dim curpath As StringDim thiswb_name As StringDim lj_rows As LongDim active_rows As LongDim active_cols As Longthiswb_name = ThisWorkbook.NameWorkbooks(thiswb_name).Sheets(1).Activatelj_rows = Sheets(1).UsedRange.CountDim ljarr()Dim hzarr()If lj_rows > 1 Thenljarr = Range(Cells(1, 1), Cells(lj_rows, 1))Dim currow As Longcurrow = 1Application.DisplayAlerts = FalseFor i = 1 To lj_rowscurpath = ljarr(i, 1)If curpath <> "" And Dir(curpath) <> "" Then Workbooks.Open (curpath) active_rows = ActiveSheet.UsedRange.Rows.Count active_cols = ActiveSheet.UsedRange.Columns.Count Range(Cells(1, 1), Cells(active_rows, active_cols)).Copy Workbooks(thiswb_name).Sheets(2).Activate ActiveSheet.Cells(currow, 1).Select ActiveSheet.Paste Workbooks(2).Close False currow = currow + active_rowsElse If Dir(curpath) = "" Then MsgBox curpath & "：此文件不存在！" End IfEnd IfNext iMsgBox "已完成！"Application.DisplayAlerts = TrueElseMsgBox "请在Sheet1中第一列填入要合并的文件路径"End IfEnd Sub

5、5.点击“运行”合并想要合并的多个Excel文件。