在一些操作中，往往会需要将多个工作簿进行合并。一般的操作方法都是打开两个工作簿，然后选中需要移动的工作表，右键单击以后选择“移动或复制”。接下来在新的窗口里面进行设置就可以了。
  
  
这种方法适合在移动数量较少的工作表的时候使用。如果有很多的工作簿，都需要进行移动的话，一个一个打开然后再操作肯定是比较麻烦耗时的。这时就可以使用VBA来批量进行操作。
  
如图，现在在一个文件夹里面有几个工作簿，里面分别有不同数量的工作表。另外还有一个启用宏的汇总表。
  
  
下面就需要使用VBA将工作簿1-3汇总到那个总表中。
  
打开汇总工作簿，然后运行以下代码：
  
Sub MergeWorkbook()   Application.ScreenUpdating = False   Path = "C:\Users\Administrator\Desktop\新建文件夹"   Filename = Dir(Path & "\*.xlsx")   While Filename <> ""       Set wb = Workbooks.Open(Path & "\" & Filename)           For Each Sheet In ActiveWorkbook.Sheets               i = Workbooks("汇总.xlsm").Sheets.Count               Sheet.Copy After:=Workbooks("汇总.xlsm").Sheets(i)           Next Sheet       wb.Close       Filename = Dir   WendEnd Sub
  
运行以后其他工作簿里面的工作表就全部复制到汇总工作簿中了。
  
  
在实际使用中需要注意的是，这里的路径需要更改为目标文件夹路径，汇总工作表如果不是启用宏的工作簿，也需要修改名称和扩展名，防止运行时出现错误。
  
以上就是使用Excel VBA将多个工作簿的全部工作表合并到一个工作簿中的方法了。
  
  
关于Office办公软件，如果遇到了什么问题，都可以进行留言，看到以后会第一时间进行回复。如果觉得好，也欢迎分享给更多的人，一起学习进步。
  
  公众号ID：tobefascinating扫码关注 获取知识
  
我就知道你“在看”
  
 
 

在上篇博客https://blog.csdn.net/whandgdh/article/details/100184090，讲到了把一个工作表拆分为多个，
 那其实也可以把多个工作表合并为一个。
 继续之前的例子，我们把汇总表删除
 如下
 
 把表 1，2，3 合并到sheet5中
 
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 2To Sheets.Count
 ' j=2表示 从第二个表中开始获取工作簿的所有工作表
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A95536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
 
同样进入sheet5的vba编程界面
 
 放入代码并运行
 
 运行结果如下图：
 
 
删除宏代码 然后保存
 

 
有时候，你需要将几十个工作簿中的内容，快速汇总至合并至一个工作簿，如果手动一个复制粘贴，那心里有苦说不出。。。
 
今天将大家用VBA一键合并，只需要几秒种，为了测试这段代码，我们新建了4个工作簿在文件夹中，数据都是模拟的，做试验
 

  
 
 
一键合并代码操作如下所示：
 

  
 
 
我们看原始表格数据，其中，第1个工作簿有点特殊，这个工作簿中，有两个工作表，第1个工作表的内容是：
 

  
 
 
第2个工作表的内容是：
 

  
 
 
第2，3，4个工作簿中都是仅有1个工作表，如下所示：
 

  
 
 

  
 
 

  
 
 
通过代码，我们一键可以合并，得到结果，这个汇总的结果有两个特点
 
1、最后一列，还会显示这些数据的来源是哪个工作簿，哪个表名的。
 
2、原始数据中每一行的标题自动取消，只保留了一个标题。
 
如下所示：
 

  
 
 
在Excel菜单栏中，点击开发工具，打开VBA，输入如下代码：
 

  
 
 
其中代码如下所示：
 
Sub 合并目录所有工作簿全部工作表()
 
Dim MP, MN, AW, Wbn, wn
 
Dim Wb As Workbook
 
Dim i, a, b, d, c, e
 
Application.ScreenUpdating = False
 
MP = ActiveWorkbook.Path
 
MN = Dir(MP & "" & "*.xls")
 
AW = ActiveWorkbook.Name
 
Num = 0
 
e = 1
 
Do While MN <> ""
 
If MN <> AW Then
 
Set Wb = Workbooks.Open(MP & "" & MN)
 
a = a + 1
 
With Workbooks(1).ActiveSheet
 
For i = 1 To Sheets.Count
 
If Sheets(i).Range("a1") <> "" Then
 
Wb.Sheets(i).Range("a1").Resize(1, Sheets(i).UsedRange.Columns.Count).Copy .Cells(1, 1)
 
d = Wb.Sheets(i).UsedRange.Columns.Count
 
c = Wb.Sheets(i).UsedRange.Rows.Count - 1
 
wn = Wb.Sheets(i).Name
 
.Cells(1, d + 1) = "表名"
 
.Cells(e + 1, d + 1).Resize(c, 1) = MN & wn
 
e = e + c
 
Wb.Sheets(i).Range("a2").Resize(c,d).Copy .Cells(.Range("a1048576").End(xlUp).Row + 1, 1)
 
End If
 
Next
 
Wbn = Wbn & Chr(13) & Wb.Name
 
Wb.Close False
 
End With
 
End If
 
MN = Dir
 
Loop
 
Range("a1").Select
 
Application.ScreenUpdating = True
 
MsgBox "共合并了" & a & "个工作薄下全部工作表。如下：" & Chr(13) & Wbn, vbInformation, "提示"
 
End Sub
 
天天有小伙伴说，教程太简单，整点高端的，我就不解释代码了，大家有需求的直接用代码合并，欢迎留言讨论，点赞，转发
 
-------------------------
 
欢迎关注，更多精彩内容持续更新中....

 
在一些操作中，往往会需要将多个工作簿进行合并。一般的操作方法都是打开两个工作簿，然后选中需要移动的工作表，右键单击以后选择“移动或复制”。接下来在新的窗口里面进行设置就可以了。
 

 

  
 
 
这种方法适合在移动数量较少的工作表的时候使用。如果有很多的工作簿，都需要进行移动的话，一个一个打开然后再操作肯定是比较麻烦耗时的。这时就可以使用VBA来批量进行操作。
 
如图，现在在一个文件夹里面有几个工作簿，里面分别有不同数量的工作表。另外还有一个启用宏的汇总表。
 

 

  
 
 
下面就需要使用VBA将工作簿1-3汇总到那个总表中。
 
打开汇总工作簿，然后运行以下代码：
 

  
Sub MergeWorkbook()
    Application.ScreenUpdating = False
    Path = "C:UsersAdministratorDesktop新建文件夹"
    Filename = Dir(Path & "*.xlsx")
    While Filename <> ""
        Set wb = Workbooks.Open(Path & "" & Filename)
            For Each Sheet In ActiveWorkbook.Sheets
                i = Workbooks("汇总.xlsm").Sheets.Count
                Sheet.Copy After:=Workbooks("汇总.xlsm").Sheets(i)
            Next Sheet
        wb.Close
        Filename = Dir
    Wend
End Sub
 
 
运行以后其他工作簿里面的工作表就全部复制到汇总工作簿中了。
 

 

  
 
 
在实际使用中需要注意的是，这里的路径需要更改为目标文件夹路径，汇总工作表如果不是启用宏的工作簿，也需要修改名称和扩展名，防止运行时出现错误。
 
以上就是使用Excel VBA将多个工作簿的全部工作表合并到一个工作簿中的方法了。
 
想了解更多Excel的操作技巧，欢迎关注微信公众号：tobefascinating，一起学习，一起进步。