在日常辦公中,我們經常會遇到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名稱不叫“合併”,可以在程式碼中修改一下即可