同样格式的表格怎么汇总（一键汇总同一文件夹下所有表格）

日常工作中我们经常会遇到多表合并的情况，手动粘贴复制过于麻烦，而且容易出错，今天分享三种汇总小技巧。

如果需要汇总的表格是csv格式（如下图所示，表格后缀为CSV），那么一句windows批处理命令即可搞定。

首先在需要合并表格的文件夹内新建一个TXT文件，在文本文档中输入语句：

copy *.csv all.csv

其中“all”为汇总成的表格名称，可随意修改。

之后保存文件，将文件后缀名修改为bat文件，如果修改之后还是文本文件的话，用第二种方法，将刚才的文件另存为，另存为界面需要注意两点：

第一点：文件名记得带.bat的后缀；

第二点：保存类型选择【所有文件】

点击确定，就会出现一个可执行文件，类型为【windows批处理文件】。

双击此文件，当前文件夹内所有的csv表格就会被汇总成一个表格，如下图所示。

需要注意的是，此种方法只适用于CSV文本，不适用于Excel表格（xls/xlsx后缀的电子表格）！

万能的VBA专治各种疑难杂症，当然可以用来汇总多个工作簿，话不多说，代码如下所示：

Sub 合并当前目录下所有表格() Dim Wb As Workbook Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xlsx") AWbName = ActiveWorkbook.Name Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) c = ThisWorkbook.Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row If c = 1 Then c = 0 End If ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("sheet1").Cells(c 1, 1) Wb.Close False End If MyName = Dir Loop Application.ScreenUpdating = True MsgBox "已完成" End Sub

首先在需要合并的文件夹内新建一个工作簿，打开并插入一个模块，粘贴入代码，并执行，程序运行数秒完成表格合并（这里运行时间视表格大小与多少而定），动图展示如下所示：

此方法适用于CSV、xls、xlsx等表格文件，只需要对代码做相应的修改即可。

Excel 2016版本及其以上可以利用此方法进行数据汇总，不需要编写任何代码，只是操作步骤略长。

首先新建一个空白Excel表格（桌面或其它位置，别在需要合并的文件夹内新建），依次点击【数据】—【从文件】—【从文件夹】。

选择需要合并的文件夹，并点击确定按钮。

在查询编辑器中新建一个自定义列，依次选择【添加列】—【添加自定义列】，在公式内输入【=Excel.Workbook([Content])】，点击确定按钮。

之后可以发现出现一个新增的列Custom，接着点击Custom右侧的双向箭头，在弹出框内取消勾选【使用原始列名作为前缀】。

取消勾选之后列又增加很多，找到Data列，点击其双向箭头，在弹出框内勾选【使用原始列名作为前缀】。

这时候我们可以发现，表格已经完成合并，列Data.column1至Data.column3使我们需要的数据，将其它多余的列一一删除。

按住Ctrl键，依次点选这三列，右键，选择|“删除其它列”，接着点击最上部【开始】——【关闭并上载】，合并之后的数据就会被加载到Excel工作表中。

再次声明，此种方法只适用于2016及其以上版本的Excel，其它低版本的Excel需要下载power query安装包，并进行安装才能使用。

windows批处理命令汇总表格数据，VBA汇总表格数据，power query汇总表格数据，三种数据汇总小技巧，推荐给大家。