Excel檔案合併教學：詳細步驟與實用技巧

準備要合併的 Excel 檔案

在開始合併Excel檔案的過程之前，請確保所有需要合併的表格都已經準備好並且儲存在同一個資料夾之中。另外也要檢查這些表格的結構是否相同，如此才能夠順利地將資料進行合佐。

開啓 Excel 應用程式

點擊 “開始” 鍵，搜尋 “Excel”，然後點擊該應用程式以開啓。或者，如果在您的桌面或工作列上有Excel的快捷方式，您也可以直接點擊該圖標。

打開 “開發人員” 功能表

點擊 “檔案”，再點擊 “選項”。然後，找到 “自訂功能表”，選擇 “主功能表檔案”，在右側的列表中找到 “開發人員” 並勾選，最後點選下方的 “確認” 按鈕。

如果”開發人員” 功能表已經開啓

如果”開發人員”功能表已經開啓，則您可以直接進行下一步操作。

使用 VBA 寫合併檔案的程式碼

在”開發人員”功能表下找到並點擊”Visual Basic”按鈕，開啟VBA編輯器。在 “插入” 功能表中選擇 “模組” 以建立一個新的模組，然後在模組中增加以下程式碼進行檔案合併:

Sub 合併Excel檔案()

    ‘宣告變數

    Dim FileNames As Variant

    Dim I As Integer

    Dim TargetWB As Workbook

    Dim SourceWB As Workbook

    Dim SourceWS As Worksheet

    ‘開啟一個對話框以選擇檔案

    FileNames = Application.GetOpenFilename(

        FileFilter:=”Excel 97-2003 工作簿 (*.xls), *.xls”, MultiSelect:=True)
    ‘如果有選擇檔案

    If Not IsArray(FileNames) Then Exit Sub  ‘沒有選擇檔案就跳出程式
    ‘循環打開每一個被選擇的檔案

    For I = LBound(FileNames) To UBound(FileNames)
        ‘設定目標工作簿

        If I = LBound(FileNames) Then  ‘第一次循環

            Set TargetWB = Application.Workbooks.Open(Filename:=FileNames(I))

        Else  ‘非第一次循環

            ‘設定來源工作簿和工作表

            Set SourceWB = Application.Workbooks.Open(Filename:=FileNames(I))

            Set SourceWS = SourceWB.Worksheets(1)
            ‘複製來源工作表到目標工作簿

            SourceWS.Copy After:=TargetWB.Worksheets(TargetWB.Worksheets.Count)
            ‘關閉來源工作簿

            SourceWB.Close savechanges:=False

        End If

    Next I
End Sub

執行 VBA 程式

儲存合併的檔案

點擊 “檔案”，然後選擇 “另存新檔”。選擇儲存的位置並輸入檔案名稱，然後點擊 “儲存”。現在，您已經成功地合併了Excel檔案並儲存為一個新的檔案。