如何实现多个Excel表格的合并

在日常使用Excel时，我们经常需要将多个表格进行合并以便于统计数据和分析。下面将介绍一种简单的方法来批量合并多个Excel表格。 准备工作 首先，在电脑上打开一个存放有多个Excel表格的文件夹

在日常使用Excel时，我们经常需要将多个表格进行合并以便于统计数据和分析。下面将介绍一种简单的方法来批量合并多个Excel表格。

准备工作

首先，在电脑上打开一个存放有多个Excel表格的文件夹。然后新建一个空白的Excel表格，并将其命名为“合并后的表格.xlsx”。

打开代码窗口

接下来，在“合并后的表格.xlsx”中的sheet1工作表上点击鼠标右键，选择“查看代码”。这将打开VBA代码编辑器窗口。

输入代码

在代码编辑器窗口中，将以下代码粘贴到代码区：

Sub 合并当前目录下所有工作簿的全部工作表()
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, WbN As String
    Dim G As Long
    Dim Num As Long
      False
    MyPath  
    MyName  Dir(MyPath  "*.xls")
    AWbName  
    Num  0
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb  (MyPath  MyName)
            Num  Num   1
            With Workbooks(1).ActiveSheet.Cells(Range("B65536").End(xlUp).Row   2, 1)
                .Value  Left(MyName, Len(MyName) - 4)
                For G  1 To 
                    (G) .Cells(Range("B65536").End(xlUp).Row   1, 1)
                Next
            End With
            WbN  WbN  Chr(13)  
             False
        End If
        MyName  Dir
    Loop
    Range("B1").Select
      True
    MsgBox "共合并了"  Num  "个工作薄下的全部工作表。如下："  Chr(13)  WbN, vbInformation, "提示"
End Sub

保存宏并运行

将代码粘贴完毕后，按下键盘上的Ctrl S键，保存宏。然后点击“运行”，再点击“运行子过程/用户窗体”。

查看合并结果

运行结束后，会弹出一个提示框，显示合并了多少个工作薄下的全部工作表。最后进入sheet1工作表，即可查看合并后的表格。

通过以上步骤，你可以轻松地实现多个Excel表格的合并，方便地进行数据分析和处理。