怎麼把多個工作薄合到一張工作薄上？

【Step1】將要彙總的工作簿放在同一個資料夾下，並且該資料夾下面不要放其它無關的檔案；

【Step3】選擇圖一資料存放的路徑，然後確定；

【Step5】在彈出的哈並檔案對話方塊中，雙擊左邊Sheet1；

【Step6】神奇的一幕出現了，請看下圖；

【動圖演示】

這個不難。我敢說，用VBA彙總是最快捷方便的，三五行程式碼搞定。

Sub MycopySheet()

Dim i As Integer "定義工作表迴圈的序號

Dim EndRow As Integer "定義彙總後的工作表最下的行號

For i = 1 To 3 "開始迴圈

arr = Sheets(i).Range("B2:E20") "將每個工作表裡需要彙總的資料寫入記憶體陣列

EndRow = Sheets("彙總").Cells(65536, 2).End(3).Row + 1 "每次都更新彙總工作表的最下免得行號

Sheets("彙總").Cells(EndRow, 2).Resize(UBound(arr, 1), UBound(arr, 2)) = arr "把資料寫入彙總工作表

Next i

ThisWorkbook.Save

End Sub

我就不請自來，分享2個多表合併的方法：

選擇插入合併計算的位置；

選單選擇合併計算；

將表格的資料區域都新增到合併計算區域中，勾選最左列和首行；

確定

動畫演示如下：

按下<Alt>+D，鬆開，再按P；

選擇多重合並計算資料區域；

自定義頁欄位；

把所有的區域都新增進來，併為每個區域定義頁欄位；

完成；

效果如下所示：

動畫演示如下：