多表合并计算VBA
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
页:
[1]