如何将多个excel文件合并到一个表格中？

今天处理了一个excel文件合并的问题，试了很多次，最终通过写宏命令的方式实现了，这个命令不需要改动，可以直接复制过去使用，就分享一下了。

一家电商店铺的订单统计，一共有140个表格，每个表格都有一个同样的表头，下面开始的结构是一样的，现在就是想要把 140个表格的数据合并到一起，只保留一个表头。思考和尝试的过程就不说了，直接说结果：一共分了三步：

第一步：把所有表格的前6行删除，并且把第七行提升为第一行

第二步：把所有数据合并到一张表格上

第三步：添加表头

现在成功的把140个表格的内容合并了，详细说一下。

第一步：在开发工具里打开Visual Basic，输入下面的代码执行

Sub RemoveRowsAndMoveUp()

Dim wb As Workbook

Dim ws As Worksheet

Dim cell As Range

Dim filename As String

'设置文件夹路径

Const folderPath As String = "C:\Users\xing\Documents\WeChat Files\wxid_2tc4h2eqo5wf22\FileStorage\File\2023-03\2月店铺账单\"

'循环遍历文件夹中的所有Excel文件

filename = Dir(folderPath & "*.xlsx")

Do While filename <> ""

'打开Excel文件

Set wb = Workbooks.Open(folderPath & filename)

  '循环遍历Excel文件中的所有工作表

  For Each ws In wb.Worksheets

    '删除前六行并将第七行作为新的第一行

    ws.Rows("1:6").Delete Shift:=xlUp

    ws.Rows("1:1").Insert Shift:=xlDown

  Next ws

  '关闭Excel文件并保存更改

  wb.Close SaveChanges:=True

  '查找下一个Excel文件

  filename = Dir()

Loop

End Sub

注释写的很清楚，两个地方需要改动，第一个是填入文件夹目录，注意路径结尾是以\结尾的，再就是看好了系统有的路径可能是/。第二个就是需要删除前几行，就在删除行数那里修改一下数字。

执行命令，所有的文件就都去掉了前六行的表头了。

第二步，继续执行代码

Sub MergeAllExcels()

Dim folderPath As String, currentFile As String, currentWorkbook As Workbook, masterWorkbook As Workbook

' 设置文件夹路径

folderPath = "C:\Users\xing\Documents\WeChat Files\wxid_2tc4h2eqo5wf22\FileStorage\File\2023-03\2月店铺账单"

' 创建一个新的工作簿来存储合并的数据

Set masterWorkbook = Workbooks.Add(xlWBATWorksheet)

' 循环遍历文件夹中的所有Excel文件

currentFile = Dir(folderPath & "\*.xlsx")

Do While currentFile <> ""

    ' 打开当前的 Excel 文件

    Set currentWorkbook = Workbooks.Open(folderPath & "\" & currentFile)

    ' 将当前工作簿中的数据复制到主工作簿

    currentWorkbook.Sheets(1).UsedRange.Copy

    masterWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

    ' 关闭当前工作簿

    currentWorkbook.Close False

    ' 移动到下一个文件

    currentFile = Dir()

Loop

' 将合并的数据保存到名为“ex.xlsx”的新文件中

Application.DisplayAlerts = False

masterWorkbook.SaveAs folderPath & "\ex.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Application.DisplayAlerts = True

' 关闭主工作簿

masterWorkbook.Close False

End Sub

命令里需要设置的也是两个地方，第一个是设置文件夹的路径，第二个就是给新生成的文件起个名字，这样所有表格的内容就合并到一起了。

第三步，这不就没有难度了，自己把表头内容插入进去就好了。

ps：最后说一点，碰到这个需要朋友当时的第一反应是写个python脚本来执行的，但我的想法就还是这种事情首先考虑适不适合用SQL来解决，然后考虑excel本身能不能解决，最后在考虑通过代码解决。