日常搬磚經常搞一堆Excel，每次要找數據都翻到頭禿，文件多了根本不好管理。后來發現個超實用的技巧——把多個Excel合并成一個，每個表格變成一個Sheet，查找整理都方便哭了！今天就來分享下Excel2013怎么一鍵合并多個表格，小白也能秒會，沖就完事了～
操作賊簡單，幾步搞定：
1. 先把所有要合并的Excel丟進同一個文件夾里（別亂放哈）
2. 在這個文件夾里新建一個叫數據合并.xlsx的新文件
3. 打開這個新文件，右鍵點一下Sheet1 → 選查看代碼（或者直接按Alt+F11，更快）
4. 進去VBA編輯器后，在左邊找到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

5. 貼完代碼，按F5運行一下（或者點那個運行按鈕），等幾秒彈窗說合并完成，就OK啦！
合并完打開一看，所有表格內容全整進來了，每個原文件還自動加了名字標注，清晰得不行。再也不用手動復制粘貼到懷疑人生了，真香警告??
Ps：記得備份原文件，防止手滑出錯～懂點VBA的大佬也可以自己魔改代碼，比如只合并特定格式的表啥的，但咱普通人用這個基礎版完全夠用了！
誰用誰知道，效率直接拉滿

工作簿總數約有200，保存在同一文件夾中，其中大多數工作簿中只包含一個單獨的工作表，但有些工作簿包含多個工作表。這些工作簿中的工作表需要被添加到一個新的工作簿中。
合并數量如此巨大的工作簿的最簡單方法——如果經常要這樣做的話——是使用宏。下面的宏會顯示一個對話框，提示你選擇要合并的文件。(你可以通過按下Ctrl鍵單擊的方法選擇多個工作簿。)它會使用代碼在你所選的工作簿列表中循環，打開每個工作簿并將其中的工作表移動到工作簿的末尾。
你照圖上輸入。

需要利用VBA寫代碼實現，具體步驟如下：
將需要合并的excel工作簿文件放置在一個文件夾中。
在該文件夾中，新建立一個新的excel工作簿文件。
打開新建立的excel工作簿文件.按Alt+F11或者將鼠標移動到下方工作表名稱sheet1上右鍵，選擇查看代碼。
在彈出的代碼編輯窗口中，輸入代碼。注意：通過快捷鍵Alt+F11打開的窗口如下沒有直接復制代碼的面板，需要點擊左上方的工程-VBA project模塊，雙擊sheet1，即可打開代碼窗口。而步驟3中的第二種方法可以直接打開代碼輸入窗口。
在代碼窗口中，黏貼下列代碼：
Sub CombineFiles()

Dimpath As String
DimFileName As String
DimLastCell As Range
DimWkb As Workbook
DimWS As Worksheet
DimThisWB As String

Dim MyDir AsString
MyDir =ThisWorkbook.path & "\"
'ChDriveLeft(MyDir, 1) 'find all the excel files
'ChDir MyDir
'Match =Dir$("")

ThisWB =ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path =MyDir
FileName =Dir(path & "\*.xls", vbNormal)
Do UntilFileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThen
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True

Set Wkb =Nothing
Set LastCell= Nothing
End Sub
點擊菜單欄運行-運行子過程-用戶窗體。關閉代碼輸入窗口。打開excel工作簿8.可以看到下方已經多了很多新的工作表——此時，我們已經將之前的工作簿中的工作表都復制到了這一新建的工作簿中。

方法與步驟如下：
1、將所有格式相同的Excel表格保存到一個文件夾內；
2、在文件夾內新建一個Excel工作表，命名為“匯總表”；
3、打開匯總表，按“Alt+F11”打開VBA開發環境，雙擊工程資源管理器里面的
sheet1(sheet1),在右側的代碼區編寫如下代碼：
Sub合并當前目錄下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num, ini As Long
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
ini = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
If ini = 0 Then
Wb.Sheets(1).Range(Wb.Sheets(1).Cells(1,1),Wb.Sheets(1).Cells(1,Wb.Sheets(1).UsedRange.Columns.Count)).Copy.Cells(1,1)
ini=1
End If
For G=1 ToSheets.Count
Wb.Sheets(G).Range(Wb.Sheets(G).Cells(2,1),Wb.Sheets(G).Cells(Wb.Sheets(G).UsedRange.Rows.Count,Wb.Sheets(G).UsedRange.Columns.Count)).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
4、運行代碼，系統會自動將所有Excel表格合并到“匯總表”中

方法/步驟

將需要合并的excel工作簿文件放置在一個文件夾中。
每個文件夾中的工作簿都輸入了簡單的內容。

在該文件夾中，新建立一個新的excel工作簿文件。重命名為8.

打開新建立的excel工作簿文件8.按Alt+F11或者將鼠標移動到下方工作表名稱sheet1上右鍵，選擇查看代碼。

在彈出的代碼編輯窗口中，輸入代碼。注意：通過快捷鍵Alt+F11打開的窗口如下沒有直接復制代碼的面板，需要點擊左上方的工程-VBA project模塊，雙擊sheet1，即可打開代碼窗口。而步驟3中的第二種方法可以直接打開代碼輸入窗口。

在代碼窗口中，黏貼下列代碼：
Sub CombineFiles()

Dimpath As String
DimFileName As String
DimLastCell As Range
DimWkb As Workbook
DimWS As Worksheet
DimThisWB As String

Dim MyDir AsString
MyDir =ThisWorkbook.path & "\"
'ChDriveLeft(MyDir, 1) 'find all the excel files
'ChDir MyDir
'Match =Dir$("")

ThisWB =ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path =MyDir
FileName =Dir(path & "\*.xls", vbNormal)
Do UntilFileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThen
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True

Set Wkb =Nothing
Set LastCell= Nothing
End Sub

6
點擊菜單欄運行-運行子過程-用戶窗體。關閉代碼輸入窗口。打開excel工作簿8.可以看到下方已經多了很多新的工作表——此時，我們已經將之前的工作簿中的工作表都復制到了這一新建的工作簿中。

剪切 粘貼 不用代碼 只能 自己做

1、數據準備。
用Excel表做一個人員信息的表格。保存為“通訊錄數據”。

用Word做一個通訊錄文件。保存為“通訊錄”。

2、 在Word文件中，單擊“郵件”--“選擇收件人”--“使用現有列表”。

3、 在打開的“選擇數據源”對話框中的數據源類型中選擇“Excel文件（*.xlsx;*,xlsm;*xlsb;*.xls）”

4、選擇Excel數據。單擊“打開”。

5、在打開的“選擇表格”對話框中數據所在的表格（如果是一張表就不選360問答）。如果你的數據沒有標題，點掉“數據首行包含列標題”前面的小勾。---單擊“確定”。

 
6、將光標移到“姓名：”后面。


7、 在工具欄中點擊“插入合并域”--“姓名”。

Word文件當將自動插入“«姓名»”到你的文檔中。

8、按照 6步，7步的方法，做完“性別”和“地址”。完成后的效果。

9、在工具欄點選“完成并合并”--“編輯單強念春抓束個文檔”

10、在彈出的“合并到新文檔”單擊“確定”。（也可以選擇部分數據）

11、生成的新文檔內容如下。自動生成并打開了一個“信函1”Word文檔。

12、保存文件。
 
此操作在Office 2013中測試通過。

回答：
1、一步一步來，選一個工作表，選取要復制的所有單元格，按右鍵選復制；
2、換到另一個表，選取同樣多的單元格，行列和上述的一樣，按右鍵選粘貼，如此而已；
3、這樣做雖然“原始”，但操作簡單，易操作，易記憶。
OK