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