前景提要
好了，通過前面幾節課的學習，我們也是學會了批量合併工作薄中如何打開，如何關閉工作薄，這幾個都是常規的操作，相信有很多的小夥伴早就已經等到的不耐煩了，說了那麼多，重點的合併工作薄呢？
來來來，今天就來說
方法分析
我們先來想想看，如果人手手工操作的話，想要實現這樣的效果，我們應該如何操作呢？
首先我們人工操作的話，第一步就是打開工作薄，然後選擇當前的活動區域，活動區域的選擇我們可以使用UsedRange來選擇，因為我們已經提前輸入了標頭，所以我們在複製其他的數據的時候，就不需要再次複製標頭了，因為本案例中標頭只有一行，我們就需要向下移動一行，移動要如何實現呢？之前我們學習過移動單元格用offset,至於複製粘貼，就是copy啦，這個非常簡單，基礎代碼的框架我們前面已經寫好了，今天我們繼續補充匯總數據的代碼。
場景模擬
我們在之前模擬的數據的基礎上，繼續複雜化數據，假設我們現在有不同的銷售員在不同的商城的訂單銷售情況，同時也有香港以及部分海外地區的銷售情況，如下圖
這些數據我們都是放在一個文件夾內的，方便我們遍歷，我們現在要做的就是遍歷這個文件夾，將文件夾內的所有的工作薄的數據都匯總在test.xlsm這個工作薄內，那麼要如何實現呢？
代碼區
Sub test()
Dim pathn, sth As Workbook, rng As Range, rng1 As Range, sbook As Workbook
pathn = ThisWorkbook.Path
Set sbook = ThisWorkbook
f = Dir(pathn & "\")
Do While f <> ""
l = Cells(Rows.Count, 1).End(xlUp).Row
If f <> "test.xlsm" Then
For Each sth In Workbooks
If sth.Name = f Then
GoTo line
End If
Next sth
Workbooks.Open (pathn & "\" & f)
'=====匯總工作薄的代碼======
Set rng = ActiveSheet.UsedRange
Set rng1 = rng.Offset(1, 0)
rng1.Copy sbook.Worksheets(1).Cells(l + 1, 1)
'=====匯總工作薄的代碼======
ActiveWorkbook.Close True
End If
line:
f = Dir()
Loop
End Sub
我們來看看最終的效果
非常的完美
這裡我們成功的將所有的數據的匯總在了一個工作薄中，為了驗證數據的正確性，我隨意打開其中一個工作薄，我們的打開購物天堂香港的工作薄
許志安，馬國明等知名演員都在這裡，當然這是虛構的啦，我們來看看數據
再看看總表的數據
一個不多一個不少，完美的實現了數據的匯總，怎麼樣，小夥伴們，現在還覺得數據匯總很難嘛？
代碼分析
Set sbook = ThisWorkbook
定義一個新的工作薄的變量，方面我們後面的調用，本案例中，他就等於是test這個工作薄
Set rng = ActiveSheet.UsedRange
將當前的活動單元格複製給一個rng對象，活動區域是哪裡呢？
我們來調試下
usedrange就是代表了當前活動工作表的所有被使用的數據區域的區間，注意這裡是一個區間
我們因為已經設置好了標頭，所以這裡我們不需要再次複製標頭了，這裡我們將我們所需要的區域往下移動一行，用offset實現，來看看效果
成功的避開了標頭行，然後就是複製粘貼了。
rng1.Copy sbook.Worksheets(1).Cells(l + 1, 1)
這裡就非常的簡單了，因為我們之前已經獲得了test的最後一個非空單元格，所以我們直接調用，在最後一個非空單元格粘貼數據就好 。
後面的關閉遍歷框架在之前我們就已經寫好 。