在日常使用Excel時(shí)，我們經(jīng)常需要將多個(gè)表格進(jìn)行合并以便于統(tǒng)計(jì)數(shù)據(jù)和分析。下面將介紹一種簡(jiǎn)單的方法來(lái)批量合并多個(gè)Excel表格。 準(zhǔn)備工作 首先，在電腦上打開(kāi)一個(gè)存放有多個(gè)Excel表格的文件夾

在日常使用Excel時(shí)，我們經(jīng)常需要將多個(gè)表格進(jìn)行合并以便于統(tǒng)計(jì)數(shù)據(jù)和分析。下面將介紹一種簡(jiǎn)單的方法來(lái)批量合并多個(gè)Excel表格。

準(zhǔn)備工作

首先，在電腦上打開(kāi)一個(gè)存放有多個(gè)Excel表格的文件夾。然后新建一個(gè)空白的Excel表格，并將其命名為“合并后的表格.xlsx”。

打開(kāi)代碼窗口

接下來(lái)，在“合并后的表格.xlsx”中的sheet1工作表上點(diǎn)擊鼠標(biāo)右鍵，選擇“查看代碼”。這將打開(kāi)VBA代碼編輯器窗口。

輸入代碼

在代碼編輯器窗口中，將以下代碼粘貼到代碼區(qū)：

Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()
    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  "個(gè)工作薄下的全部工作表。如下："  Chr(13)  WbN, vbInformation, "提示"
End Sub

保存宏并運(yùn)行

將代碼粘貼完畢后，按下鍵盤上的Ctrl S鍵，保存宏。然后點(diǎn)擊“運(yùn)行”，再點(diǎn)擊“運(yùn)行子過(guò)程/用戶窗體”。

查看合并結(jié)果

運(yùn)行結(jié)束后，會(huì)彈出一個(gè)提示框，顯示合并了多少個(gè)工作薄下的全部工作表。最后進(jìn)入sheet1工作表，即可查看合并后的表格。

通過(guò)以上步驟，你可以輕松地實(shí)現(xiàn)多個(gè)Excel表格的合并，方便地進(jìn)行數(shù)據(jù)分析和處理。