對於經常使用Excel處理數據的朋友來說，將工作簿中的多個工作表數據合併到一張表中，這種操作相信許多人都碰到過。許多人在碰到這種操作的時候，基本都是用複製粘貼來操作。
在在工作表較少的情況下，複製粘貼也是一種方法。但是當分工作表的數量特別多的時候，這種操作就會非常的耗費時間變的沒有效率。下面我們就來看看，如何五秒快速合併多工作表數據。
第一步：隨意點擊一個工作表名稱，點擊右鍵—查看代碼，進入我們的代碼編輯窗口。如下圖所示：
第二步：在代碼編輯窗口，然後滑鼠雙擊左邊的工程窗口中的合併的表格，然後將代碼合併代碼粘貼到對應的窗口中。如下圖所示：
第三步：輸入完代碼後點擊菜單欄上方的運行—運行子過程或窗體即可。通過上面的操作我們就可以快速的將1月、2月、3月三張表格中的數據添加到合併表格中。如下圖所示：
合併代碼：
Sub 多表合併()Dim i%, rs%, rss%, st As Worksheet, ast As WorksheetSet zst = Sheet4 '將匯總工作表第一季度定義為變量zstFor i = 1 To 3 Set st = Sheets(i & "月") '將1-3月的工作表定義為變量st rs = st.UsedRange.Rows.Count '計算1-3月每個表的最後一行 rss = zst.UsedRange.Rows.Count '計算第一季度工作表的最後一行的下一行 st.Range("A2:C" & rs).Copy Cells(rss, 1) '複製1月、2月、3月每個工作表的數據到第一季度的匯總表中NextEnd Sub
通過上面的代碼運行之後我們就可以快速的將多個工作表數據一下合併，現在你學會了嗎？