大家好,小跳来为大家解答以上的问题。多个sheet表合并成1个，如何将多个sheet合并到一个sheet里这个很多人还不知道,现在让我们一起来看看吧！
1、把所需合并的Excel文档放在同一个文件夹中,再文件夹中新建一个Excel打开Excel，按ALT+F11，或 依次点工具，宏，VB编辑器，弹出的编辑器中点插入模块，新弹出的空白窗口中输入以下代码: Sub Com() 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 = ***.Name Num = 0 Do While MyName "" If MyName AWbName Then Set Wb = ***.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 Wb.Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & ***.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。
2、如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub 保存---点执行键OK。
本文到此分享完毕，希望对大家有所帮助。