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

最新推荐文章于 2024-11-05 09:11:29 发布

kirawoo

最新推荐文章于 2024-11-05 09:11:29 发布

阅读量1.3w

点赞数 2

CC 4.0 BY-SA版权

分类专栏： Excel VBA

本文链接：https://blog.youkuaiyun.com/kirawoo/article/details/78902170

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

打开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