工作中瑞侮，我經(jīng)常會遇到需要把多個Excel表統(tǒng)計匯總到一張表中标沪。
笨辦法是把每一個表的內(nèi)容復(fù)制粘貼到新的Excel表中哆键。
如果只有幾個表髓霞，這么操作費不了多少時間卦睹，可如果需要合并10個以上的Excel表，這工作量就有點大了方库。
image.png
怎樣才能把這些表快速合并成1個表呢结序？
別著急，今天就教你：快速合并多個Excel表纵潦！
1徐鹤、首先垃环，把需要合并的表格都放到同一個文件夾內(nèi)。
2返敬、然后遂庄，在這個文件夾內(nèi)新建一個新的Excel表，打開后劲赠，按快捷鍵 Alt + F11涛目，調(diào)出代碼界面。
3凛澎、把以下這段代碼復(fù)制到代碼框霹肝。
Sub sheets2one（）
‘定義對話框變量
Dim cc As FileDialog
Set cc = Application.FileDialog（msoFileDialogFilePicker）
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open（vrtSelectedItem）
tempwb.Worksheets（1）.Copy Before：=newwork.Worksheets（i）
newwork.Worksheets（i）.Name = VBA.Replace（tempwb.Name, ".xls", ""）
tempwb.Close SaveChanges：=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
寫入代碼
4、點擊運行按鈕
點擊運行
5塑煎、彈出對話框沫换，選中要合并的Excel 表，點確定
選中
6最铁、等待幾秒鐘苗沧，看，這些表都進(jìn)來了炭晒。搞定啦待逞！
合并完成
怎么樣，你學(xué)會了嗎网严？
