1. 怎樣將多個excel表格合並到一個excel表格中
excel表格是一個數據匯總的實用工具之一，也是各行業都需要用到的數據匯總工具之一。當數據過多時，就需要用excel表格的技巧去分類處理這些數據，那麼怎樣將多個excel表格合並到一個excel表格中呢，下面就來看看步驟吧：
首先將需要合並的excel所有表格存放在同一個文件夾中，如下圖：
然後再該文件夾中新建一個空白的excel表格，如下圖：
然後打開新建的excel表格，找到sheet1，然後在sheet1上面滑鼠單擊右鍵，點擊「查看代碼」，如下圖：
點擊「查看代碼」後，就會出現下圖中的框框，然後在右邊框框中填入下列代碼： Sub 合並當前目錄下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath "\" "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName "" If MyName AWbName Then Set Wb = Workbooks.Open(MyPath "\" MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN Chr(13) Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合並了" Num "個工作薄下的全部工作表。如下：" Chr(13) WbN, vbInformation, "提示" End Sub
代碼填入好後，如果代碼出現紅色的，那說明改代碼有問題，需要更改，反之正常。
確定代碼無誤後，再點擊下圖中箭頭所指的圖標或者是按快捷鍵F5，即可開始excel表格的合並運行
若結果彈出下面的對話框，這說明合並成功，反之就沒有