搜尋
Close this search box.

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

本頁面提供全方位Excel檔案合併教學。我們將詳細解釋如何操作Microsoft Excel來高效地合併多個工作簿和工作表,並提供清楚的步驟以及實用的技巧,讓您即使不熟悉Excel,也能輕鬆掌握檔案合併的過程。在本教學中,您將學習到基本的合併工具應用,以及採用內建功能或第三方插件來加強合併效能。

讓資訊整合更靈活

記錄、協作、成長 — Notion帶來比Excel更靈活的工作方式!
免費使用

200+模板自動化工作流程

從數據到成果,只需一步 — 用Monday代替Excel,效率倍增!
免費使用

AI智能團隊協作

AI驅動的ClickUp超越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 程式


< P>回到 “開發人員” 功能表,點擊 “巨集”,選擇剛剛創建的巨集,然後點擊 “執行”。選擇您想合併的所有Excel檔案,然後點擊 “開啟”。現在,您的所有Excel檔案已經被合併在一個工作簿中。

儲存合併的檔案


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

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *