Excel 多个文件格子如何合并? 非常好用1。先把所有要合并的 EXCEL 放到同一目录下.2.在当前目录下新建一个 EXCEL3.打开新建的 EXCEL 按 ALT+F114。在 sheet1 里输入-—--————-——-—-——--—————-————--—-----—此行不要复制-----—----—-—--—Sub 合并工作表（） Dim MyPath, MyName， AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook。Path MyName = Dir(MyPath & "\" & ”*。xls”) AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> ”" If MyName 〈〉 AWbName Then Set Wb = Workbooks。Open(MyPath & "\” & MyName） Num = Num + 1 With Workbooks（1).ActiveSheet 。Cells(.Range（”A65536”）。End(xlUp）。Row + 2， 1) = Left(MyName, Len（MyName） — 4) For G = 1 To Sheets.Count Wb.Sheets（G）。UsedRange.Copy .Cells（.Range（"A65536”)。End（xlUp）.Row + 1, 1） Next WbN = WbN & Chr（13） & Wb.Name Wb。Close False End With End If MyName = Dir Loop Range（"A1"）.Select Application.ScreenUpdating = True MsgBox ”共合并了" & Num ＆ "个工作薄下的全部工作表。如下:” ＆ Chr(13) & WbN， vbInformation， ”提示” End Sub-------————-—--——-———————-—此行不要复制-—--—--———-—--------——-5。关闭 Microsoft Visual Basic6。点击 工具-—---宏—-—-—安全性 改成低 (假如已经改成低,此步骤可以省略)7。点击 工具-—-——宏—---—宏 再点击 执行8.稍等 1~2 分钟 <注意:EXCEL 的总行数不要超过 65535 行〉楼主幸运，以前我找过，朋友给了段 vba 代码，很方便的Sub CombineWorkbooks（)Dim FilesToOpen， ftDim x As IntegerApplication.ScreenUpdating = FalseOn Error GoTo errhandlerFilesToOpen = Application。GetOpenFilename _（FileFilter:="Micrsofe Excel 文件(＊.xls), ＊。xls"， _MultiSelect：=True, Title：="要合并的文件”)If TypeName（FilesToOpen) = ”boolean" ThenMsgBox ”没有选定文件"’GoTo errhandlerEnd Ifx = 1While x 〈= UBound(FilesToOpen)Set wk = Workbooks.Open(Filename:=FilesToOpen(x））wk.Sheets().Move after：=ThisWorkbook.Sheets _（ThisWorkbook.Sheets.Count)x = x + 1WendMsgBox "合并成功完成！"errhandler:’ MsgBox Err.Description'Resume errhandlerEnd Sub 回答人的补充 2025-07—09 10：33Sub test(）Dim i As Integer, j As IntegerFor i = 2 To Sheets.Count Sheets（i）。Activate ActiveSheet.UsedRange.Select Selection.Copy Sheets(1）。Activate j = Range（"a65536”）。End(xlUp)。Row Cells(j + 1, 1）。Select ActiveSheet.PasteNext iEnd Sub
