Excel多工作表資料合併，同事一段程式碼五秒搞定，你卻加班了2小時

對於經常使用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

透過上面的程式碼執行之後我們就可以快速的將多個工作表資料一下合併，現在你學會了嗎？