如何自动把三张excel文件 合并成一张

合并三个Excel文件成一张，可以使用VBA编写一段脚本，或者利用Excel自身的功能，如PivotTable。以下是两种常用方法：

1. **使用VBA**:
- 打开第一个Excel文件，进入VBA编辑器（按Alt + F11键）。
- 创建一个新的Module，然后编写以下VBA代码：

     Sub MergeSheets()
         Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook
         Set wb1 = Workbooks.Open("文件1.xlsx")
         Set wb2 = Workbooks.Open("文件2.xlsx")
         Set wb3 = Workbooks.Open("文件3.xlsx")
         
         '假设所有文件都有相同的Sheet1，复制过来
         wb1.Sheets("Sheet1").Copy After:=wb1.Sheets(wb1.Sheets.Count)
         wb2.Sheets("Sheet1").Copy After:=wb2.Sheets(wb2.Sheets.Count)
         wb3.Sheets("Sheet1").Copy After:=wb3.Sheets(wb3.Sheets.Count)
         
         '关闭不需要的工作簿，最后保存合并后的文件
         wb1.Close SaveChanges:=True
         wb2.Close SaveChanges:=True
         wb3.Close SaveChanges:=True
         ActiveWorkbook.SaveAs "merged_file.xlsx"
     End Sub

运行这个宏即可。

2. **使用PivotTable**:
- 如果三张文件的数据结构相似，可以直接在一个新工作簿里创建一个PivotTable，选择其中一个工作表作为源数据，然后分别将其他两个文件的数据源添加进来。

完成后记得检查结果是否符合预期，以及是否包含了所有需要的数据。