前言
在日常工作過(guò)程中，我們有可能需要把多個(gè)Excel工作簿的內(nèi)容匯總到一張Excel工作表中。如果通過(guò)復(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)擊右鍵，選擇“查看代碼”。
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í)行”。
7、在打開的對(duì)話窗口中，選擇你要合并的多個(gè)工作薄。
8、等待運(yùn)行。而后就OK了。
9、打開名為“匯總工作簿”的Excel文件，我們就能看到多個(gè)其他工作簿以多個(gè)Sheet頁(yè)的形式合并到了這一個(gè)工作簿中。
第二步：多個(gè)工作表合成一個(gè)工作表
在“匯總工作簿”工作簿中，有很多個(gè)Sheet頁(yè)，我們的最終目的是把這多個(gè)Sheet頁(yè)合并到一個(gè)Sheet頁(yè)的多行。其操作辦法如下：
1、在“匯總工作簿”中，新建一個(gè)sheet頁(yè)。
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í)行”。
6、等待運(yùn)行，而后就OK了。
結(jié)語(yǔ)
我們上面提到的是如何使用VBA來(lái)實(shí)現(xiàn)多個(gè)工作簿合成一個(gè)工作簿以及一個(gè)工作簿中的多個(gè)工作表按行合并。
上面的方法是在知乎上摘錄的，
提姆葉提供了工作簿的合并；
Anson提供了同一個(gè)工作簿中的工作表按行合并的方法。
另外，我還在知乎上看到一個(gè)辦法，就是雷公子提供的用PowerQuery動(dòng)態(tài)匯總文件夾下的多個(gè)Excel文件。鏈接如下：https://zhuanlan.zhihu.com/p/26164792 。但是由于我個(gè)人并沒有嘗試過(guò)使用PowerQuery去進(jìn)行合并，所以并不清楚這個(gè)效果如何。
總之這里是一個(gè)解決方法的匯總，如果有和我一樣有類似需求的小伙伴，可以嘗試用這邊的方法去解決這個(gè)問(wèn)題。
以上~
