Excel合併工作表，加載宏

Sub 合併sheets()
    n = 12 '源表個數，根據需要修改！
    nstart = 9 '每個單表數據的開始行數，根據需要修改！
    k = nstart '目標表的行標
    For i = 1 To n
        irow = nstart '行標
        While Sheets(i).Cells(irow + 1, 2) <> "" '後面個1以第2列數據的最後1行是空作爲行結束標示,確定源表的行數，根據需要修改！
            irow = irow + 1
        Wend
        Sheets(i).Rows(nstart & ":" & irow).Copy '複製源數據行
        Sheets(n + 1).Activate
        Sheets(n + 1).Cells(k, 1).Select
        ActiveSheet.Paste '粘貼數據
        k = k + irow - nstart + 1
    Next i
End Sub