多表合并（Power Query、SQL、函数与公式、VBA四种方法）

工作中有时候需要将多张工作表合并到一张工作表，本文总结了四种方法：Power Query 工具、SQL、函数与公式、VBA,四种方法难度依次递增。

方法一：借助Power Query工具

史上多表合并最简单的方法

方法二：SQL

多表合并又一个方法-SQL

方法三：函数与公式

Excel多表合并一定要用VBA代码吗？

方法四：VBA

打开汇总表，点击开发工具→查看代码，如图1，输入以下代码，如图2：

Option Explicit

Sub Test() '多工作表合并

Dim Ws As Worksheet, k%, SumWs As Worksheet, 最后&

Set SumWs = Sheets("汇总表")

For Each Ws In Sheets

If Ws.Name <> "汇总表" Then

k = k + 1

If k = 1 Then

'复制表头

Ws.Range("A1").CurrentRegion.Copy SumWs.[A1]

Else

'不复制表头

最后 =SumWs.Cells(Rows.Count, 1).End(xlUp).Row + 1

Ws.Range("A1").CurrentRegion.Offset(1, 0).Copy SumWs.Cells(最后, 1)

End If

End If

Next Ws

End Sub

图1

图2

按快捷键F5执行代码，瞬间完成多表合并。