一个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
