Excel 巨集合併多個工作表

假如你的工作表都長得一樣，都是從A1開始建立的，都在同一個檔案中，你可以新增一個巨集，幫你把所有的工作表合併到同一個工作表中。

Sub Combine()
    Dim J As Integer
 
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combine"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
 
    For J = 2 To Sheets.Count
        Sheets(J).Activate
        Range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
End Sub

檢視 》 巨集 》 檢視巨集 》 第一個Combine 》 執行
所有的資料全部都會合併到第一個工作表「Combine」裏面
如此就不用 [Ctrl] + [C] X [Ctrl] + [V] N 次了
收工！