【原】多表合并（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执行代码，瞬间完成多表合并。