在日常辦公中，我們可能會面對這樣一種情況，就是多個下級單位報送的報表，需要將多個工作表的數據匯總到一個總表中，以便進行數據分析、比較和報告。如果只有幾個數據表，可以一個個粘貼到一起，但是如果有十幾個甚至幾十個表的數據需合并呢？今天教大家三種方法（第三種是完全免費的哦），快速將數據匯總到一起。

一、使用WPS的合并表格工具

WPS中，有專門的功能可以將多個工作表合并成一個工作表。菜單路徑如下：

工具-合并表格-合并成一個工作表。

【注意】WPS的合并表格工具僅限會員使用。

二、使用第三方工具

可以使用方方格子等第三方工具，將多個工作表合并成一個工作表。

【注意】這類工具的合并表格工具同樣僅限會員使用。

三、使用VBA代碼

鑒于上述兩種方法都需要開通會員，因此，我們專門為大家提供了一種免費的操作方法，那就是使用VBA代碼實現同樣的功能。

首先，新建一個工作表，按ALT F11打開VBA編輯器。或者點擊Office Excel菜單欄“開發工具”-“Visual Basic”打開VBA編輯器。復制以下代碼，并粘貼，按F5（或點擊綠色的?按鈕）執行代碼。

然后，在彈出的文件選擇窗口中，選擇需要合并的文件，點擊“打開”，稍等即可完成合并。完整的代碼和操作演示如下：

Sub MergeExcelFiles()

Dim wb As Workbook

Dim ws As Worksheet

Dim selectedFiles As FileDialog

Dim file As Variant

Dim i As Integer

Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

ws.Name = "合并數據"

i = 1

Set selectedFiles = Application.FileDialog(msoFileDialogOpen)(www.ws46.com)

selectedFiles.AllowMultiSelect = True

selectedFiles.Title = "選擇要合并的文件"

selectedFiles.Show

For Each file In selectedFiles.SelectedItems

Set wb = Workbooks.Open(file)

wb.Sheets(1).UsedRange.Copy Destination:=ws.Cells(i, 1)

i = i wb.Sheets(1).UsedRange.Rows.Count

wb.Close SaveChanges:=False

Next file

ws.Columns.AutoFit

MsgBox "文件合并完成!"

End Sub

以下演示是在微軟office2010中操作。注意最新版的菜單功能位置可能有所變化。

目前的WPS版本同樣是支持VBA的，新建一個工作表，按ALT F11打開VBA編輯器。或者點擊菜單欄“工具”-“開發工具”-“VB編輯器”打開VBA編輯器。復制代碼，并粘貼，按F5（或點擊綠色的?按鈕）執行代碼即可。