合并标准工作表【excel】

合并简单的工作表，合并后的sheet名为“汇总”，不存在合并单元格等。列标题一致，列数一致。除了“汇总”表外，全部为子表。

Sub 合并()
Dim sht As Worksheet, arr
For Each sht In Worksheets
    If sht.Name <> "汇总" Then
        i = sht.Range("b65536").End(xlUp).Row
        j = Sheets("汇总").Range("b65536").End(3).Row + 1
            arr = sht.Range("a2:f" & i)
            Sheets("汇总").Range("a" & j).Resize(UBound(arr), 6) = arr
    End If
Next
End Sub