一个Excel工作簿中有N张sheet表，现需要把它们合并到一张表中。

如果逐个表复制粘贴太慢了。以前也介绍过3种方法：公式链接、Microsoft Query和power query。

其中公式法会因为有太多公式而拖慢表格速度，而被很多Excel高手视为法宝的Power query，昨晚兰色测试合并8个表时直接卡死。速度真的很慢很慢.....

而如果是下面的形式呢：

在合并表中点一下按钮，瞬间完成多张sheet表的合并。

上面的操作是不是你最想要的？想学就跟兰色一起操作吧！

操作步骤：

1、在工作表右键 - 查看代码

2、在弹出的窗口执行插入 - 模块，然后把下面的代码粘贴到右面的窗口中，然后关闭该窗口

---

Sub 合并()

Dim x As Integer, K As Integer

Sheets("合并").Cells.Clear

For x = 1 To 16

K = Application.CountA(Sheets("合并").[a:a]) 1

Sheets(x).UsedRange.Copy Sheets("合并").Cells(K, 1)

Next x

End Sub

---

---