正文

如何将多个表格数据统计到一张表格（如何将多个表格数据统计到一张表格里）

发布时间：2023-06-13 16:58:16 稿源：创意岭阅读： 51

大家好！今天让创意岭的小编来大家介绍下关于如何将多个表格数据统计到一张表格的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。

开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等

只需要输入关键词，就能返回你想要的内容，有小程序、在线网页版、PC客户端和批量生成器

官网：https://ai.de1919.com。

本文目录:

怎样才能将多个Excel表格的内容合并到一个表格里面？
如何将多个Excel表格汇总在一个表格中？
如何将多个excel表格汇总到一张表格

如何将多个表格数据统计到一张表格（如何将多个表格数据统计到一张表格里）

怎样才能将多个Excel表格的内容合并到一个表格里面？

有多种方法可以将多个Excel表格的内容合并到一个表格里面，以下是其中两种常见的方法：
方法一：使用Excel自带的合并工具
1. 打开一个新的Excel文档，点击“数据”选项卡，在“来自其他来源”一栏中选择“从文本/CSV”选项；
2. 选择要合并的第一个Excel表格，点击“打开”；
3. 在“文本导入向导”中，选择“分隔符”选项，并勾选“制表符”和“逗号”；
4. 点击“下一步”，在“列数据格式”中选择“文本”；
5. 点击“完成”，将数据导入到新的Excel文档中；
6. 重复以上步骤，将其他Excel表格的数据分别导入到新的Excel文档中；
7. 最后，将所有数据复制到同一个工作表中即可。
方法二：使用VBA宏
1. 打开一个新的Excel文档；
2. 点击“开发工具”选项卡，选择“Visual Basic”；
3. 在Visual Basic编辑器中，点击“插入”选项卡，选择“模块”；
4. 将以下代码复制到模块中：
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("请输入要合并的文件夹路径：")
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. 点击“运行”按钮，输入要合并的Excel表格所在的文件夹路径；
6. 程序将自动遍历该文件夹下的所有Excel表格，将它们的数据合并到新的Excel文档中；
7. 最后，保存新的Excel文档即可。
以上两种方法都能够将多个Excel表格的内容合并到一个表格里面，使用VBA宏的方法相对来说更加自动化和快捷，但需要一定的编程知识。

如何将多个Excel表格汇总在一个表格中？

如果是相同格式的Excel表格，可以利用VBA快速将几个工作表中的数据全部汇总到一个工作表中。

软件版本：Office2007

举例说明如下：

1.当前工作簿中有多个工作表有如下相同格式的数据，将其全部汇总到总表中：

2.Alt+F11，在总表中输入如下代码：

代码是实现：将不同的工作表中AB两列中从第二行开始到最后一行非空数据，依次复制到名为“总表”的工作表中

3.F5执行代码，表格数据就合并到总表中了：

如何将多个表格数据统计到一张表格（如何将多个表格数据统计到一张表格里）