多个sheet合并成一个表_工作小记——将多个sheet表合并到一张里

今天拿到 一些表格，每张表里含有多张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