通过VBA将多个格式相同的Excel文件合并成一个文件，带文件处理

最新推荐文章于 2025-09-22 11:59:12 发布

原创

最新推荐文章于 2025-09-22 11:59:12 发布 · 1.3w 阅读

17 ·

CC 4.0 BY-SA版权

本教程介绍如何利用VBA（Visual Basic for Applications）将格式相同的多个Excel文件合并成一个文件。首先，需要开启Excel的开发人员工具并启用宏功能。接着，创建3个模块来处理文件。用户通过自定义菜单功能，依次选择要合并的文件，将各工作表指定单元格内容整合到左侧列，并最终合并所有工作表到单一工作表。提供完整VBA代码供参考。

打开Excel文件，启用“开发人员工具”

启用宏和VBA功能

添加3个模块

代码如下：

Sub 工作薄间工作表合并()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
FileToOpen_N = Application.GetOpenFilename("xlsx文件,*.xlsx", Title:="请选择要合并工作簿:", MultiSelect:=True)
Newbz = 0
On Error Resume Next
For Each FileToOpen In FileToOpen_N
 If FileToOpen <> False Then
  If Newbz = 0 Then
   Booknum = Application.SheetsInNewWorkbook
   Application.SheetInNewWorkbook = 1
   Workbooks.Add
   Application.SheetsInNewWorkbook = Booknum
   NewBookName = ActiveWorkbook.Name
   Sheets(1).Name = "sheet_tmp"
   Newbz = 1
  End If
  Set OpenBook = Workbooks.Open(FileToOpen)
  For Each Xlsheet In OpenBook.Sheets
   Xlsheet.Copy Before:=Workbooks(NewBookName).Sheets("shee