正文

如何將多個(gè)表格數(shù)據(jù)統(tǒng)計(jì)到一張表格（如何將多個(gè)表格數(shù)據(jù)統(tǒng)計(jì)到一張表格里）

發(fā)布時(shí)間：2023-06-13 16:58:16 稿源：創(chuàng)意嶺閱讀： 51

大家好！今天讓創(chuàng)意嶺的小編來(lái)大家介紹下關(guān)于如何將多個(gè)表格數(shù)據(jù)統(tǒng)計(jì)到一張表格的問題，以下是小編對(duì)此問題的歸納整理，讓我們一起來(lái)看看吧。

開始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，有小程序、在線網(wǎng)頁(yè)版、PC客戶端和批量生成器

官網(wǎng)：https://ai.de1919.com。

本文目錄:

怎樣才能將多個(gè)Excel表格的內(nèi)容合并到一個(gè)表格里面？
如何將多個(gè)Excel表格匯總在一個(gè)表格中？
如何將多個(gè)excel表格匯總到一張表格

如何將多個(gè)表格數(shù)據(jù)統(tǒng)計(jì)到一張表格（如何將多個(gè)表格數(shù)據(jù)統(tǒng)計(jì)到一張表格里）

怎樣才能將多個(gè)Excel表格的內(nèi)容合并到一個(gè)表格里面？

有多種方法可以將多個(gè)Excel表格的內(nèi)容合并到一個(gè)表格里面，以下是其中兩種常見的方法：
方法一：使用Excel自帶的合并工具
1. 打開一個(gè)新的Excel文檔，點(diǎn)擊“數(shù)據(jù)”選項(xiàng)卡，在“來(lái)自其他來(lái)源”一欄中選擇“從文本/CSV”選項(xiàng)；
2. 選擇要合并的第一個(gè)Excel表格，點(diǎn)擊“打開”；
3. 在“文本導(dǎo)入向?qū)А敝校x擇“分隔符”選項(xiàng)，并勾選“制表符”和“逗號(hào)”；
4. 點(diǎn)擊“下一步”，在“列數(shù)據(jù)格式”中選擇“文本”；
5. 點(diǎn)擊“完成”，將數(shù)據(jù)導(dǎo)入到新的Excel文檔中；
6. 重復(fù)以上步驟，將其他Excel表格的數(shù)據(jù)分別導(dǎo)入到新的Excel文檔中；
7. 最后，將所有數(shù)據(jù)復(fù)制到同一個(gè)工作表中即可。
方法二：使用VBA宏
1. 打開一個(gè)新的Excel文檔；
2. 點(diǎn)擊“開發(fā)工具”選項(xiàng)卡，選擇“Visual Basic”；
3. 在Visual Basic編輯器中，點(diǎn)擊“插入”選項(xiàng)卡，選擇“模塊”；
4. 將以下代碼復(fù)制到模塊中：
Sub MergeAllWorkbooks()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim NRow As Long
Dim FileName As String
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
Application.ScreenUpdating = False
Set SummarySheet = ThisWorkbook.Worksheets.Add
FolderPath = InputBox("請(qǐng)輸入要合并的文件夾路徑：")
If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath + "\"
FileName = Dir(FolderPath & "*.xls*")
Do While FileName <> ""
Set WorkBk = Workbooks.Open(FolderPath & FileName)
Set SourceRange = WorkBk.Worksheets(1).UsedRange
If NRow = 0 Then
Set DestRange = SummarySheet.Range("A1")
SourceRange.Copy DestRange
Else
Set DestRange = SummarySheet.Range("A" & NRow + 1)
SourceRange.Copy DestRange
End If
NRow = SummarySheet.UsedRange.Rows.Count
WorkBk.Close False
FileName = Dir()
Loop
SummarySheet.Columns.AutoFit
Application.ScreenUpdating = True
End Sub
5. 點(diǎn)擊“運(yùn)行”按鈕，輸入要合并的Excel表格所在的文件夾路徑；
6. 程序?qū)⒆詣?dòng)遍歷該文件夾下的所有Excel表格，將它們的數(shù)據(jù)合并到新的Excel文檔中；
7. 最后，保存新的Excel文檔即可。
以上兩種方法都能夠?qū)⒍鄠€(gè)Excel表格的內(nèi)容合并到一個(gè)表格里面，使用VBA宏的方法相對(duì)來(lái)說更加自動(dòng)化和快捷，但需要一定的編程知識(shí)。

如何將多個(gè)Excel表格匯總在一個(gè)表格中？

如果是相同格式的Excel表格，可以利用VBA快速將幾個(gè)工作表中的數(shù)據(jù)全部匯總到一個(gè)工作表中。

軟件版本：Office2007

舉例說明如下：

1.當(dāng)前工作簿中有多個(gè)工作表有如下相同格式的數(shù)據(jù)，將其全部匯總到總表中：

2.Alt+F11，在總表中輸入如下代碼：

代碼是實(shí)現(xiàn)：將不同的工作表中AB兩列中從第二行開始到最后一行非空數(shù)據(jù)，依次復(fù)制到名為“總表”的工作表中

3.F5執(zhí)行代碼，表格數(shù)據(jù)就合并到總表中了：

如何將多個(gè)表格數(shù)據(jù)統(tǒng)計(jì)到一張表格（如何將多個(gè)表格數(shù)據(jù)統(tǒng)計(jì)到一張表格里）