批量合并EXCEL工作表工具電腦版下載 綠色版

批量合并EXCEL工作表工具介紹

批量合并EXCEL工作表工具是一款十分好用的Excel輔助工具，一款能夠在電腦上一站式在線輔助，輕松幫助每一個用戶，在這里輕松將多個Excel文件快速合并成一個Excel文件。

批量合并EXCEL工作表工具特色

1.您可以將多個Excel文件中的所有表合并到一個excel文件的表中。

2.多個Excel文件中的表可以分別組合成一個Excel文件的對應表。

3.所有Excel文件中的所有工作表都可以合并到每個Excel文件的第一個工作表中，并保存為“合并+當前文件名”。

4.可以將所有Excel文件中指定的工作表組合到Excel文件中的每個工作表中。

5.可以累積和組合每個工作表的相應單元格的值。

6.可以連接和組合每個工作表的相應單元格的數據。

7.您可以在多個Excel文件中對指定工作表的所有列進行簡單的水平合并。

8.在多個Excel文件中水平智能地合并指定工作表的所有列。

9.用戶可以選擇僅組合奇數或偶數表。

10.用戶可以自定義要合并的表。

11.您可以設置合并的起始行和結束行。

12.您可以設置Excel文件以打開密碼。

13.您可以將組合內容設置為全部。式。值。格式。邊界除外等

14.用戶可以設置合并文件保存路徑并保存文件名。

批量合并EXCEL工作表工具使用方法

把所有需要匯總的EXCEL文件（XLS、XLSX都可以）放到同一文件夾下，把該文件夾拖到EXE文件上，輸入標題所在行號，在匯總文件夾所在目錄會生成一個匯總文件

1、原始數據所在工作簿包含多個格式相同的工作表，只不過每個工作表內容不同，比如說不同人名的工作表數據或者不同部門填寫的數據。

2、在原始數據同目錄下新建一個工作簿，建立兩個工作表，名稱分別為“首頁”和“合并匯總表”。

3、按Alt+F11進入VBA代碼編輯和調試界面。

4、根據下圖提示，插入一個模塊。

5、將下述代碼粘貼到模塊空白處：

Sub CombineSheetsCells()
Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant
Dim TitleRow, TitleColumn As Range
Dim Num As Integer
Dim DataRows As Long
DataRows = 1
Dim TitleArr()
Dim Choice
Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$
Dim n, i
n = 1
i = 1
Application.DisplayAlerts = False
Worksheets("合并匯總表").Delete
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
wsNewWorksheet.Name = "合并匯總表"
MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")
If MyFileName = "False" Then
MsgBox "沒有選擇文件！請重新選擇一個被合并文件！", vbInformation, "取消"
Else
Workbooks.Open Filename:=MyFileName
Num = ActiveWorkbook.Sheets.Count
MyName = ActiveWorkbook.Name
Set DataSource = Application.InputBox(prompt:="請選擇要合并的數據區域：", Type:=8)
AddressAll = DataSource.Address
ActiveWorkbook.ActiveSheet.Range(AddressAll).Select
SourceDataRows = Selection.Rows.Count
SourceDataColumns = Selection.Columns.Count
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 1 To Num
ActiveWorkbook.Sheets(i).Activate
ActiveWorkbook.Sheets(i).Range(AddressAll).Select
Selection.Copy
ActiveSheetName = ActiveWorkbook.ActiveSheet.Name
Workbooks(ThisWorkbook.Name).Activate
ActiveWorkbook.Sheets("合并匯總表").Select
ActiveWorkbook.Sheets("合并匯總表").Range("A" & DataRows).Value = ActiveSheetName
ActiveWorkbook.Sheets("合并匯總表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
DataRows = DataRows + SourceDataRows
Workbooks(MyName).Activate
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
Workbooks(MyName).Close
End Sub

6、在“首頁”工作表中按下圖示范插入一個窗體控件并指定宏為插入的代碼名稱。

7、點擊“首頁”工作表中插入的按鈕，根據提示，瀏覽到原始數據工作簿。

8、下一步，用鼠標選擇要合并的數據范圍。

注意：每個工作表數據可能不一樣，比如說有的是10行數據，有的是30行數據。在這里我們可以用鼠標選擇任意工作表的一個較大范圍，比如說A1:D100，保證比最多行數的工作表數據還多就可以，一會再刪除空行。

9、點擊確定按鈕，待代碼運行完畢后，所有的數據就都合并到了“合并匯總表”中。

注意：

1）A列的文本說明右側的數據來自于原始數據表的哪個工作表；

2）數據之間會有一些空行，下面通過篩選刪除。

10、選中全部數據區域，執行自動篩選。然后選擇其中一個字段，選擇“空白”和標題內容。

11、然后將篩選出來的無用行鼠標右鍵刪除，再刪除A列整列即可，完成效果如下圖：