合并多个Excel ，批量修改sheet名，批量删除多个指定sheet

最新推荐文章于 2025-05-27 11:28:13 发布

原创

最新推荐文章于 2025-05-27 11:28:13 发布 · 1.3w 阅读

62 ·

CC 4.0 BY-SA版权

文章标签：

#Excel

合并多个Excel 到同一个工作簿中，批量修改sheet名，批量删除指定sheet

一：合并多个excel到同一个excel表中，分成多个sheet展示。

效果：

（1）首先，可以把要合并的工作簿excel放到一个工作夹中，新建一个空白excel工作簿

（2）在空白簿里面右键单击sheet1, 再弹出菜单中点击查看代码，调出vb编辑框

（3）把下面代码复制到vb编辑器中（注：代码中的 *.xlsx 是要合并文件的文件类型，可以修改自己的文件类型如：*.xls）

Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbo