Excel如何合并工作簿工作表

在日常工作中，我们经常需要合并多个Excel工作簿的工作表，以便进行统一管理和分析。下面介绍一种使用VBA快速将上百个工作簿合并的方法。

准备工作

1. 将要合并的Excel工作簿放在同一个文件夹中。

2. 新建一个新的工作簿，命名为“合并.xlsx”，并打开该工作簿。

VBA代码实现

进入Excel软件，点击菜单栏的“开发工具”，然后点击左上角的“打开VBA编辑器”按钮，创建一个新模块，并将以下代码复制进去：

Dim mypath
Sub 操作指定文件里的所有文件()
    mypath  "D:Desktop百度经验	est" '工作簿所在文件夹路径
    MyFile  Dir(mypath  "*.xlsx") '获取文件夹里面的所有xlsx文件
    '循环修改工作簿内容
    Do While MyFile <> ""
        Call OpenFile(MyFile)
        MyFile  Dir '找寻下一个文件
    Loop
End Sub
Function OpenFile(fileName)
    Set currentWorkBook  (mypath  ""  fileName)
    Call 合并工作表((1), )
     True '关闭文件，true表示保存修改，false表示关闭时不保存修改
End Function
Sub 合并工作表(zuWorkBook As Worksheet, sheetName As String)
    WorkBookName  "合并.xlsx" '将工作表合并到此工作簿
    sheetCount  Workbooks(WorkBookName)
     After:Workbooks(WorkBookName).Sheets(sheetCount)
    Set mSheet  Workbooks(WorkBookName).Sheets(sheetCount   1)
      sheetName '命名合并过来的工作表名为原本工作簿名称
End Sub

操作步骤

1. 按照上述代码中的注释，修改VBA代码中的“工作簿所在文件夹路径”，填入你的实际路径。

2. 按下“F5”键或点击绿色三角标运行，即可合并文件夹中的所有Excel表格。

以上就是使用VBA快速合并Excel工作簿工作表的方法。如果你不熟悉VBA，可以参考《怎么批量修改文件名-高级篇》这篇文章，学习如何修改VBA代码中的路径。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。