今天有童鞋私信問小編：“如何將多個工作簿的內(nèi)容合并到一個工作簿中”,，今天我們學(xué)習(xí)這個小技巧,。平時如果需要轉(zhuǎn)換的工作簿中數(shù)據(jù)較少,，執(zhí)行復(fù)制粘貼操作就可以實現(xiàn)，如果數(shù)據(jù)多怎么辦呢,？大家可以看看今天的兩種方法有沒有幫助,。

方法一：

1. 建立一個文件夾,，將所有需要合并到一起的工作簿都放到里面；

2. 在新建的文件夾里新建一個Excel工作表——工作表5,，作為合并工作簿的載體,；

3. 雙擊打開工作表5,，選中Sheet1右擊鼠標(biāo),，在彈出的欄目中點(diǎn)擊“查看代碼”,。

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. 點(diǎn)擊菜單欄運(yùn)行-運(yùn)行子過程-用戶窗體。關(guān)閉代碼輸入窗口,。打開excel工作簿5.可以看到下方已經(jīng)多了很多新的工作表——此時,，我們已經(jīng)將之前的工作簿中的工作表都復(fù)制到了這一新建的工作簿中,。

方法二：

1. 建立一個文件夾,，將所有需要合并到一起的工作簿都放到里面,；

2. 在新建的文件夾里新建一個Excel工作表,，作為合并工作簿的載體,；

3. 雙擊打開工作表5，選中Sheet1右擊鼠標(biāo),，在彈出的欄目中點(diǎn)擊“添加更多”,；

4. 點(diǎn)擊之后彈出文件添加選擇頁面,，全選所有需要添加的文件,，然后點(diǎn)擊下方的打開即可。

今天的Excel操作技巧就先講到這里了,，如果有什么問題歡迎大家在評論區(qū)留言討論~