前言

在日常工作過程中，我們有可能需要把多個(gè)Excel工作簿的內(nèi)容匯總到一張Excel工作表中。如果通過復(fù)制粘貼的方式也并不是不可行，只是會(huì)浪費(fèi)大量的時(shí)間和人力。在這樣的情況下，我們一起討論一種可以比較方便和快捷的進(jìn)行多個(gè)工作簿合并成一個(gè)工作表的工作。這樣我們可以分成兩步去操作：首先：多個(gè)工作簿合并到一個(gè)“匯總工作簿”；其次：將這個(gè)“匯總工作簿”中的工作表進(jìn)行合并，合并成一個(gè)工作表

第一步：多個(gè)工作簿合并到一個(gè)工作簿

在由多個(gè)工作簿合并到一個(gè)工作表之前，我們先把多個(gè)工作簿合并到一個(gè)工作簿。

1、新建一個(gè)工作薄，將其命名為合并后的名字，例如叫做：匯總工作簿。

2、打開此工作簿：“匯總工作簿”

3、在“匯總工作簿”下任一個(gè)工作表標(biāo)簽上點(diǎn)擊右鍵，選擇“查看代碼”。

查看代碼.png

4、在打開的VBA編輯窗口中粘貼以下代碼：

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(ThisWorkbook.Sheets.Count)

X = X 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

5、關(guān)閉該VBA編輯窗口

6、在Excel中，開發(fā)工具---宏,選“工作薄間工作表合并”,然后“執(zhí)行”。

開發(fā)工具-宏.png

執(zhí)行“工作薄間工作表合并”.png

7、在打開的對(duì)話窗口中，選擇你要合并的多個(gè)工作薄。

8、等待運(yùn)行。而后就OK了。

9、打開名為“匯總工作簿”的Excel文件，我們就能看到多個(gè)其他工作簿以多個(gè)Sheet頁的形式合并到了這一個(gè)工作簿中。

第二步：多個(gè)工作表合成一個(gè)工作表

在“匯總工作簿”工作簿中，有很多個(gè)Sheet頁，我們的最終目的是把這多個(gè)Sheet頁合并到一個(gè)Sheet頁的多行。其操作辦法如下：

1、在“匯總工作簿”中，新建一個(gè)sheet頁。

2、在新建的sheet標(biāo)簽上單擊右鍵，選擇“查看代碼”

3、在打開的VBA編輯窗口中粘貼以下代碼：

Sub 合并當(dāng)前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！", vbInformation, "提示"

End Sub

4、關(guān)閉該VBA編輯窗口

5、在Excel中，開發(fā)工具---宏,選“合并當(dāng)前工作簿下的所有工作表”,然后“執(zhí)行”。

合并當(dāng)前工作簿下的所有工作表.png

6、等待運(yùn)行，而后就OK了。

結(jié)語

我們上面提到的是如何使用VBA來實(shí)現(xiàn)多個(gè)工作簿合成一個(gè)工作簿以及一個(gè)工作簿中的多個(gè)工作表按行合并。