您好,肖大哥就为大家解答关于如何将多个sheet合并到一个sheet，如何将多个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。

本文就讲到这里，希望大家会喜欢。