在日常辦公中，我們經常會遇到Excel中格式一樣，但內容不一樣的多張Sheet，本文分享給大家如何通過VBA快速合併成一張表。
工具/原料
Excel
VBA
方法/步驟
首先，開啟我們需要合併的工作簿。
裡面有多張Sheet，在最後1張Sheet後，我們插入一張新Sheet
用來合併前面所有的Sheet，不妨命名為“合併”
然後，在Excel中按下Alt+F11，開啟VBE巨集編輯器
或者，點選“開發工具”，巨集
錄製巨集，然後編輯巨集。
我們觀察一下，左側列表中是否有模組，
如果沒有模組，我們新建一個模組。
方法是：
點選選單中的“插入”→“模組”
或者在左側列表區域右擊，插入“插入”→“模組”
複製貼上下列VBA程式碼
Sub merge_zzllrr()
Dim s, sht, shts
Set shts = Sheets("合併")
shts.Cells.Clear
Sheets(1).Range("A1:F1").Copy shts.Range("A1:F1")
For i = 1 To Sheets.Count - 1
Set sht = Sheets(i)
sht.Range("A2:G" & sht.Columns(1).Find("*", , , , 1, 2).Row).Copy shts.Range("A" & (shts.Columns(1).Find("*", , , , 1, 2).Row + 1))
Next i
End Sub
然後點選“允許”
或者按下快捷鍵F5即可執行這段合併多張Sheet到一張Sheet的VBA程式碼。
就大功告成了。
注意事項
VBA巨集執行完後，可以儲存，也可不儲存
如果合併後的Sheet名稱不叫“合併”，可以在程式碼中修改一下即可