說明：對于“工作簿”與“工作表”你是如何理解呢？為便于理解我們用書來形容！“工作簿”是一本書，“工作表”是書中的頁。一本書里有很多頁，工作簿里有很多個工作表。本例是講關于工作簿的合并。在實際工作中用得比較多，省時省力是最主要的。效果非常明顯！
第一步 新建一個文件夾用于放置要整合的工作簿，然后新建一個工作表，命名為“合并”
第二步 打開“合并“工作簿后，打開【開發工具】-選擇【visual basic】
第三步 將代碼復制進模塊中，不用修改，也不需要理解，會用就可以。關于VBA代碼知識自已另外學習吧！
Sub 合并工作薄()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
雙擊進入模塊中，將代碼
第四步 點保存。點是代表只能這一次，下回打開表是沒有這些代碼的，想要保留代碼就要把文件保存為另一種支持宏的文件。宏方面的知識這里不多說。本例選擇“是“
第五步 點【運行】并選擇【運行子過程/用戶窗體】，最快是按快捷鍵F5
跳出下面的窗口點運行
第六步 根據實際需求，通過瀏覽窗口找到要合并的工作簿，可配合Ctrl鍵和Shift鍵選擇需要合并的工作簿，選擇后打【打開】。工作簿數量多的話就要等一小會，假如用手工打開復制再粘貼的話就不是一小會了可能是幾個小時，也可能是天來計算。電腦配置好就會快些。本例只選擇表一、表二、表三。
第八步 合并后效果如下圖。
第九步 表一、表二、表三工作簿都合并到合并工作簿中，3個工作簿中都包含有2個工作表，都已經合并了，也就是說支持的工作簿，這個工作簿可以包含多個表。合并后，同一個工作簿的表是拓在一起的，至于工作簿的先后排序如何來設置有待研究。這個操作完之后就可以考慮多表合并的問題，我也做有例子供大家分享，共同學習。
