[Excel VBA]如何將一個工作簿的所有工作表合併至同一個工作表?

製作數據圖表的前一個步驟往往是數據收集和彙整工作。作為接受數據的下游崗位，除了常常需要面對格式不一致的數據表單之外，有時候即使格式一致後，尚需要花費不少時間整理來自各方同事提供的數據表單，除了花費精神和時間，人工作業的結果往往容易造成數據出錯的狀況。[OS:簡單講，就是複製、貼上和刪除~~]

本文以Excel VBA製作一支巨集程式，功能為將一個工作簿的所有工作表合併至同一個工作表，使用方法如上述影片所示，其使用的函數如下:

1. Application.FileDialog : 

該語法供使用者可挑選欲合併的工作簿檔案(.xls or .xlsx)，另外，該語法尚有不少屬性，例如: msoFileDialogFilePicker可允許使用者選取檔案; msoFileDialogFolderPicker可允許使用者選取資料夾，建議可參考Microsoft office Dev Center的資料。

2.Worksheets.Count : 

用於取得工作表數量，並進一步用於銜接迴圈語法的數量。

3.Application.ScreenUpdating :

 定義執行程式過程中的顯示或隱蔽狀態。

範例檔案下載