excel快速复制指定多个工作表的内容到一个工作表
我开头有两个工作表,然后后面有10个格式一样的工作表,最后一个汇总表,我想把其中10个工作表的内容自动复制到“汇总”工作表,需要用VBA代码...
我开头有两个工作表,然后后面有10个格式一样的工作表,最后一个汇总表,我想把其中
10个工作表的内容自动复制到“汇总”工作表,需要用VBA代码 展开
10个工作表的内容自动复制到“汇总”工作表,需要用VBA代码 展开
3个回答
2017-02-28 · 互联网+时代高效组织信息化平台
关注
展开全部
把 多个工作表 合并到到一张表, 最快捷的方法是用宏处理:
例如 将多个表合并到总计表:
总计 表只留一个标题
右键点 汇总 工作表 标签 ,查看代码, 把如下代码复制进去, F5运行:
Sub 工作表合并()For Each st In WorksheetsIf st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)NextEnd Sub
就会把多个表合并 到 总表,
如下例: 在Sheet 总计 中 运行 如上代码,就会将所有 月份 分表 汇总 进来,方便后续处理,而 不需要一次次粘贴处理
例如 将多个表合并到总计表:
总计 表只留一个标题
右键点 汇总 工作表 标签 ,查看代码, 把如下代码复制进去, F5运行:
Sub 工作表合并()For Each st In WorksheetsIf st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)NextEnd Sub
就会把多个表合并 到 总表,
如下例: 在Sheet 总计 中 运行 如上代码,就会将所有 月份 分表 汇总 进来,方便后续处理,而 不需要一次次粘贴处理
追问
这个代码我知道,但是我要排除开头的两个工作表,要怎么弄?谢谢!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询