二、用AI工具(如Excel插件或代码)合并多个Excel表格
适用于办公场景(批量合并多个Excel文件的数据):
方法1:使用VBA宏(无需编写代码)
1、准备文件:将所有需要合并的Excel文件放在同一文件夹中。
2、打开空白Excel文件,按 `Alt + F11` 打开VBA编辑器。
3、插入新模块:
在菜单中选择 插入 模块,粘贴以下代码:
vba
Sub MergeExcelFiles()
Dim folderPath As String, fileName As String
folderPath = Application.GetOpenFilename(Excel Files (*.xls*), *.xls*, , 选择第一个文件)
If folderPath = False Then Exit Sub
Dim wbTarget As Workbook: Set wbTarget = ThisWorkbook
Dim wsTarget As Worksheet: Set wsTarget = wbTarget.Sheets(1)
Dim fileDialog As FileDialog: Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
With fileDialog
.Filters.Add Excel Files, *.xls*, 1
.AllowMultiSelect = True
If .Show = 1 Then
For Each file In .SelectedItems
Workbooks.Open file
Sheets(1).UsedRange.Copy
wsTarget.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
ActiveWindow.Close False
Next file
End With
End Sub