如何将分表汇总到总表_Excel怎样快速把多表数据汇总于总表

然后插入了一个模块1，在代码框中复制如下代码：

Sub 分表汇总于总表()

'2020-8-19 22:41:20

Dim rr As Long, rn As Long

Dim myt As Worksheet

rn = ActiveWorkbook.Worksheets("汇总").Range("a" & Rows.Count).End(xlUp).Row

If rn > 1 Then ActiveWorkbook.Worksheets("汇总").Range("a2:b" & rn).ClearContents

For Each myt In Worksheets

If myt.Name <> "汇总" Then

rr = myt.Range("a" & Rows.Count).End(xlUp).Row

rn = Worksheets("汇总").Range("a" & Rows.Count).End(xlUp).Row + 1

If rr > 2 Then

myt.Range("a2:b" & rr).Copy Worksheets("汇总").Range("a" & rn)

End If

End If

Next myt

End Sub