怎么把几个电子表格合并

首先我们要把所有需要整合一起的电子表格放到同一个文件夹里，然后在里面新建一个电子表格  如图

我们打开新建的电子表格，然后右键表格底下的 sheet1   如图

在弹出的选项里，我们点击“查看代码”选项   如图

在打开的运行窗口里，我们输入以下代码Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & '\' & '*.xls')AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ''If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & '\' & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range('B65536').End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range('B65536').End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange('B1').SelectApplication.ScreenUpdating = TrueMsgBox '共合并了' & Num & '个工作薄下的全部工作表。如下：' & Chr(13) & WbN, vbInformation, '提示'End Sub

输入完代码之后，我们点击电子表格导航栏里的“运行”，在弹出的选项里，在点击“运行子过程/用户窗体” 如图

完成以上操作步骤之后，会运行一些时间，提示合并成功，我们点击“确定”即可  如图