双击此文件，当前文件夹内所有的csv表格就会被汇总成一个表格，如下图所示。
需要注意的是，此种方法只适用于CSV文本，不适用于Excel表格（xls/xlsx后缀的电子表格）！
方法二 VBA批量汇总万能的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 power queryExcel 2016版本及其以上可以利用此方法进行数据汇总，不需要编写任何代码，只是操作步骤略长。
首先新建一个空白Excel表格（桌面或其它位置，别在需要合并的文件夹内新建），依次点击【数据】—【从文件】—【从文件夹】。
选择需要合并的文件夹，并点击确定按钮。
