1.例如 将多个表合并到总计表:
总计 表只留一个标题。
右键点 汇总 工作表 标签 ,查看代码, 把如下代码复制进去, F5运行:
Sub 工作表合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub
2.就会把多个表合并 到 总表,如下例: 在Sheet 总计 中 运行 如上代码,就会将所有 月份 分表 汇总 进来,方便后续处理,而 不需要一次次粘贴处理。