今天拿到 一些表格，每张表里含有多张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表合并到一张里内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复