Excel合并（带文件名）_ExcelVBA_多个excel_

在Excel工作中，经常需要处理大量的数据，而这些数据往往分布在多个Excel文件中。手动合并这些文件不仅耗时，而且容易出错。为了解决这个问题，我们可以利用Excel的VBA（Visual Basic for Applications）宏功能来编写自动化脚本，实现多个Excel文件的快速合并，并在结果文件中保留每个源文件的名称作为参考。这就是"Excel合并（带文件名）"的主题，它将大大提高工作效率。 ExcelVBA是Excel内置的一种编程语言，允许用户自定义工作簿的行为和功能。通过VBA，我们可以创建宏，即一系列预先录制的操作，一旦运行，就会按照预设顺序执行这些操作。在“多个excel”合并的场景中，VBA宏可以遍历指定文件夹中的所有Excel文件，读取每个文件的数据，然后将它们整合到一个新的工作表中。 以下是一个简单的VBA宏代码示例，用于合并带有文件名的Excel文件： ```vba Sub MergeExcelFiles() Dim wb As Workbook Dim srcWb As Workbook Dim folderPath As String Dim fileName As String Dim ws As Worksheet Dim lastRow As Long Dim i As Integer ' 指定文件夹路径 folderPath = "C:\Users\YourUsername\Desktop\Excel_Files\" ' 修改为实际文件夹路径 ' 创建新工作簿以存储合并结果 Set wb = ThisWorkbook wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)).Name = "合并结果" ' 获取文件夹中的第一个Excel文件 fileName = Dir(folderPath & "*.xls*") ' 匹配.xl*格式的文件 ' 循环处理每个Excel文件 Do While fileName <> "" ' 打开源文件 Set srcWb = Workbooks.Open(folderPath & fileName) ' 获取源文件的第一个工作表 Set ws = srcWb.Sheets(1) ' 在结果工作表中添加源文件名 lastRow = wb.Sheets("合并结果").Cells(wb.Sheets("合并结果").Rows.Count, 1).End(xlUp).Row + 1 wb.Sheets("合并结果").Cells(lastRow, 1) = fileName ' 将源文件数据复制到结果工作表 ws.Cells.Copy wb.Sheets("合并结果").Cells(lastRow, 2) ' 关闭源文件 srcWb.Close SaveChanges:=False ' 获取文件夹中的下一个Excel文件 fileName = Dir Loop MsgBox "合并完成！", vbInformation, "Excel合并" End Sub ``` 在上述代码中，我们首先指定了包含待合并Excel文件的文件夹路径，然后创建了一个新的工作表用于存储合并结果。接下来，使用`Dir`函数遍历该文件夹中的所有Excel文件，依次打开、读取数据并将其粘贴到结果工作表中。每行数据前都会插入一个列，用于记录数据来自哪个源文件。关闭源文件并提示用户合并已完成。 为了使用这个宏，你需要在Excel中打开"开发工具"选项卡（如果未显示，需在Excel选项中启用VBA编辑器），然后在VBA编辑器中创建一个新的模块，并将上述代码复制进去。保存为`.xlsm`（启用宏的Excel文件）后，即可在Excel中运行宏，实现多个Excel文件的自动合并。 总结来说，通过学习和应用ExcelVBA，我们可以轻松解决多Excel文件合并的问题，提高工作效率，同时还能在合并后的数据中保留文件来源的信息，方便后续的数据分析和管理。这是一个非常实用的技能，对于经常处理大量Excel数据的用户来说尤其有价值。