概述
今天拿到 一些表格，每张表里含有多张sheet，但格式都是一样的，需要将每张sheet汇总起来放到一张表里，这里将方法说一下，也方便自己以后再用。
新建一个总表，准备开始汇总。
按下Alt+F11，打开VBA，左键双击左边的的名为”总表“的工作表，确保后续的代码是复制到这个工作表中。
选中总表双击
在右边的空白区域，输入下面的代码：
Sub main()For Each sh In SheetsIf sh.Name <> "总表" Theni = sh.Range("D65536").End(3).Rowk = Range("A65536").End(3).Rowsh.Range("A2:D" & i).Copy Range("A" & k + 1)End IfNextEnd Sub最后
以上就是自信鸵鸟为你收集整理的多个sheet合并成一个表_工作小记——将多个sheet表合并到一张里的全部内容，希望文章能够帮你解决多个sheet合并成一个表_工作小记——将多个sheet表合并到一张里所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复