多表合并计算

nnsea

'Option Explicit

Sub 多表合并()
Dim i%, rs%, rss%, st As Worksheet, zst As Worksheet
Set zst = Sheets("1季度") '将汇总工作表"1季度"定义为变量zst
For i = 1 To 3
    Set st = Sheets(i & "月") '将1-3每月的工作表定义为变量st
    rs = st.UsedRange.Rows.Count ' 计算1-3月份每个表的最后一行
    rss = zst.UsedRange.Rows.Count + 1 '计算“1季度的最后一行的下一行”
    st.Range("a2:b" & rs).Copy zst.Cells(rss, 1) '复制1-3表的数据到总表中
    zst.Cells(rss, 3).Resize(rs - 1) = i & "月" '将1-3表的工作表名写入到总表对应的记录中
Next
End Sub