如何将多个工作簿的内容合并到一个工作簿中？

今天有童鞋私信问小编：“如何将多个工作簿的内容合并到一个工作簿中”，今天我们学习这个小技巧。平时如果需要转换的工作簿中数据较少，执行复制粘贴操作就可以实现，如果数据多怎么办呢？大家可以看看今天的两种方法有没有帮助。

方法一：

1. 建立一个文件夹，将所有需要合并到一起的工作簿都放到里面；

2. 在新建的文件夹里新建一个Excel工作表——工作表5，作为合并工作簿的载体；

3. 双击打开工作表5，选中Sheet1右击鼠标，在弹出的栏目中点击“查看代码”。

4. 在弹出的代码编辑窗口中，输入代码。

5. 在代码窗口中，黏贴下列代码：

Sub MergeSheets2()

'Updated by Extendoffice 2019/2/20

Dim xStrPath As String

Dim xStrFName As String

Dim xWS As Worksheet

Dim xMWS As Worksheet

Dim xTWB As Workbook

Dim xStrAWBName As String

Dim xI As Integer

On Error Resume Next

xStrPath = ' C:\Users\DT168\Desktop\KTE\'

xStrName = 'Sheet1,Sheet3'

xArr = Split(xStrName, ',')

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set xTWB = ThisWorkbook

xStrFName = Dir(xStrPath & '*.xlsx')

Do While Len(xStrFName) > 0

Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True

xStrAWBName = ActiveWorkbook.Name

For Each xWS In ActiveWorkbook.Sheets

For xI = 0 To UBound(xArr)

If xWS.Name = xArr(xI) Then

xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)

Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)

xMWS.Name = xStrAWBName & '(' & xArr(xI) & ')'

Exit For

End If

Next xI

Next xWS

Workbooks(xStrAWBName).Close

xStrFName = Dir()

Loop

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

6. 点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿5.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。

方法二：

1. 建立一个文件夹，将所有需要合并到一起的工作簿都放到里面；

2. 在新建的文件夹里新建一个Excel工作表，作为合并工作簿的载体；

3. 双击打开工作表5，选中Sheet1右击鼠标，在弹出的栏目中点击“添加更多”；

4. 点击之后弹出文件添加选择页面，全选所有需要添加的文件，然后点击下方的打开即可。

---

今天的Excel操作技巧就先讲到这里了，如果有什么问题欢迎大家在评论区留言讨论~