提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Excel中合并多个具有相同标题的工作表?

例如,您可以在不同的工作表中使用相同标题的数据,如下面的屏幕截图所示,现在您的工作是将这些工作表合并到一张工作表中。 本教程不是逐个复制和粘贴它们,而是介绍处理此作业的更好方法。

doc结合了相同的头文件1
doc结合了相同的头文件2
doc结合了相同的头文件3

通过VBA合并具有相同标题的工作表

通过合并功能合并具有相同标题的Excel表

通过Kutools for Excel合并或合并具有相同标题的Excel表 好idea3

轻松将多个工作表/工作簿合并到一张工作表或工作簿中

将多个工作表或工作簿合并到一个工作表或工作簿中可能在Excel中很有用,但使用 结合 功能在Kutools for Excel中,您可以将合并几十张工作表/工作簿合并到一张工作表或工作簿中,而且,只能通过几次点击将工作表合并到一个工作表中。 点击查看功能齐全的60天免费试用版!
结合床单
Kutools for Excel:拥有超过300便利的Excel加载项,可以在60天免费试用,不受限制。

箭头蓝色右泡 通过VBA合并具有相同标题的工作表

如果您只想合并带有相同头文件的工作表而不进行任何计算,则可以应用VBA代码来解决此问题。

1。 激活要合并工作表的工作簿,按 Alt + F11键 键打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块,然后将VBA代码粘贴到新的 模块 窗口。

VBA:合并具有相同标题的工作表

Sub Combine()
'UpdateByKutools20151029
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

3。 按 F5 键运行VBA,弹出一个对话框供您输入标题行数。 看截图:

doc结合了相同的头文件4

4。 点击 OK。 并且活动工作簿中的所有工作表都合并到名为的新工作表中 “组合拳”.

doc结合了相同的头文件1
doc plus
doc结合了相同的头文件2
doc plus
doc结合了相同的头文件3
doc垂直相等
doc结合了相同的头文件3

提示:

(1。)您的数据必须从A1开始,否则代码将不会生效。

(2。)您的数据必须具有相同的结构。

(3。)此代码只能组合活动工作簿的所有工作表,如果要合并多个工作簿中的工作表,此代码将无法工作。


箭头蓝色右泡 通过合并功能合并具有相同标题的Excel表

选项卡式浏览和编辑多个Excel工作簿/ Word文档,如Firefox,Chrome,Internet浏览10!

您可能熟悉在Firefox / Chrome / IE中查看多个网页,并通过轻松单击相应的选项卡在它们之间切换。 此处,Office选项卡支持类似的处理,允许您在一个Excel窗口或Word窗口中浏览多个Excel工作簿或Word文档,并通过单击其选项卡轻松切换它们。 点击Office Tab的免费45天试用版!

擅长

假设您有一些数据具有与下图所示相同的列和行标题,并且您想要将具有相同标题的Excel表合并并进行一些计算,则可以在Excel中应用Consolidate函数。

doc结合了相同的头文件6
doc结合了相同的头文件7
doc结合了相同的头文件8

1。 打开所有要合并工作表的工作簿,并将光标置于要查找合并数据的空白单元格上,然后单击 数据 > 整合。 看截图:

doc结合了相同的头文件9

2。 然后在 整合 窗口,做如下操作:

1)选择你想要的形式 功能 清单;

2)单击以选择要合并的范围。

3)点击 添加 按钮将范围添加到“全部参考”列表中。 重复2)步骤和3)步骤来添加合并到此列表中所需的所有范围。

4)检查 顶行 左栏在中使用标签 部分。

5)如果要将合并的数据链接到源数据,请检查 创建到源数据的链接.

doc结合了相同的头文件10
doc结合了相同的头文件11
1)选择你想要的形式 功能 清单;

2)单击以选择要合并的范围。

3)点击 添加 按钮将范围添加到“全部参考”列表中。 重复2)步骤和3)步骤来添加合并到此列表中所需的所有范围。

4)检查 顶行 左栏在中使用标签 部分。

5)如果要将合并的数据链接到源数据,请检查 创建到源数据的链接.

3。 点击 OK。 现在,具有相同标题的所有数据范围都合并为一个,并通过标题进行总结。

doc结合了相同的头文件6doc结合了相同的头文件7doc结合了相同的头文件8
doc垂直相等
doc结合了相同的头文件12

箭头蓝色右泡 通过Kutools for Excel合并或合并具有相同标题的Excel表

如果在某些情况下,您只想合并具有相同头文件的数据,而在其他情况下,您想要合并数据并合并它们,是否有任何技巧可以解决这两项任务? 这里我介绍一下 Kutools for Excel很强大 结合 功能为你。

合并具有相同标题的Excel表

合并多个标题相同的工作表

Kutools for Excel, 与超过 300 方便的功能,让您的工作更轻松。

安装后 Kutools for Excel,请按照以下步骤操作:(免费下载Kutools for Excel!)

合并具有相同标题的Excel表

1。 点击 企业服务 > 结合 启用Combine向导,然后检查 将工作簿中的多个工作表合并到一个工作表中。 查看截图:

doc结合了相同的头文件13
doc结合了相同的头文件14

2。 点击 下一步>> 合并工作表 - 2的步骤3 向导,并做如下:

doc结合了相同的头文件15
1)点击 添加 > 文件夹 添加工作簿,您可以将工作表合并到工作簿中 工作簿列表;
2)检查要合并工作表的工作簿名称,可以选择多个工作簿;
3)检查你想组合在一起的工作表;
4)点击 doc选择 选择要合并的范围,如果范围放置在每个工作表的相同位置,只需从工作表中选择一个范围,然后单击 同样的范围.

3。 点击 下一页>> 合并工作表 - 3的步骤3 向导和类型 1 进入文本框 标题行号,如果您的范围中没有标题,请输入0。

doc结合了相同的头文件16

4。 点击 ,弹出一个对话框提醒你保存这个场景,如果你想保存它,点击, 或 没有.

doc结合了相同的头文件17

现在工作表与新工作簿中的相同行标题合并。

doc结合了相同的头文件18

合并多个标题相同的工作表

安装后 Kutools for Excel,请按照以下步骤操作:(免费下载Kutools for Excel!)

1。 点击 企业服务 > 结合 显示Combine向导,然后检查 将多个工作簿中的值合并并计算到一个工作表中。 看截图:

doc结合了相同的头文件19

2。 点击 下一步>>合并工作表 - 2的步骤3 向导,并做如下:

doc结合了相同的头文件20
1)点击 添加 > 文件夹 添加工作簿,您可以将工作表合并到工作簿中 工作簿列表;
2)检查要合并工作表的工作簿名称,可以选择多个工作簿;
3)检查你想组合在一起的工作表;
4)点击 doc选择 选择要合并的范围,如果范围放置在每个工作表的相同位置,只需从工作表中选择一个范围,然后单击 同样的范围.

3。 继续点击 下一页>>,然后选择要在合并范围内应用的功能,然后检查合并范围的标签。 看截图:

doc结合了相同的头文件21

4。 点击 ,弹出一个对话框要求您保存场景,单击 保存或点击 没有 不保存它。

然后将范围合并到新的工作簿中。

doc结合了相同的头文件12

的优点 Kutools for Excel 结合 功能是您可以将打开的工作簿或未打开的工作簿中的多个工作表合并到一个工作表或一个工作簿中。

在Excel中基于相同的值轻松组合/合并数据

假设您正在处理包含多个重复记录的工作表,现在您需要根据相同的值组合/合并行并进行一些计算,例如重复行的总和,平均值和计数。 有了这个 先进的组合行 of Kutools for Excel,您可以快速将相同的值/相同的数据或重复的行组合到适当的单元格中。 点击60天的全功能免费试用!
doc高级组合行
Kutools for Excel:拥有超过300便利的Excel加载项,可以在60天免费试用,不受限制。

相关文章


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    daniel · 3 months ago
    Esta excelente la primera macro, pero no sabrias decirme por que solamente me combina 4 columnas?. Si mis hojas tienen un aproximado de 30 columnas.
  • To post as a guest, your comment is unpublished.
    Ezequiel Zavaleta · 4 months ago
    Hello
    I bought Kutools for Excel 19.00, by interest in the merge function, but doesn't work with my files and sheets, all have the same name (Workbook an sheets) but in the combination of : "Combine all same name worksheets into one worksheet" dosn't work (does nothing), inclusive don't saves the new workbook in the place that I select prior to execute de Finish button.
    I followed the instructions one and another time, but the result is the same.
    Some help?
    • To post as a guest, your comment is unpublished.
      Sunny · 3 months ago
      Hi, Ezequiel Zavaleta, I am sorry for hear that. You can contact our Customer Service Manager through this: support@extendoffice.com our team will solve your problems as soon as possible.
  • To post as a guest, your comment is unpublished.
    wayne · 9 months ago
    perfect, thank you
  • To post as a guest, your comment is unpublished.
    Gio · 9 months ago
    How can I combine only sheets with same header ignoring other sheets?
  • To post as a guest, your comment is unpublished.
    Charles · 10 months ago
    How do I merge only select worksheets in that workbook?
    How can I run the Macro to refresh the data on a weekly basis without having to delete the "Combined" tab?
  • To post as a guest, your comment is unpublished.
    Sarang · 11 months ago
    I want to combine sheets... but I also want to add a column ("A") in new sheet (combined) where the name of the sheet "Sheet1", "Sheet2" will be placed on all rows copied from respected sheets.. so i will know which data has come from which sheet.
    • To post as a guest, your comment is unpublished.
      Sunny · 10 months ago
      You can try Kutools' Combine function, it can insert the data information of each sheet in the front of data in combined sheet.
  • To post as a guest, your comment is unpublished.
    Steven · 1 years ago
    I have the same problem as Saurabh. It merges the worksheets and has a blank row after each data from the worksheet is copied. However, the header is not copied to the new "Combined" worksheet either. I'm using Excel 2016. Thank you for the code, it does help minimize the time I spend. I don't think I'll be able to figure out the issue with the code and hope that you can look into it. Thanks again.
  • To post as a guest, your comment is unpublished.
    vinay naik · 1 years ago
    Hello,


    I have checked your VB formula for VBA: Merge sheets with same headers its absolutely helpful to me, but i need little support I want to create macro for this file. Like I have to to download file every time save with some unique name & run macro to combine sheet.

    Please confirm.
  • To post as a guest, your comment is unpublished.
    Saurabh · 1 years ago
    I used 'VBA: Merge sheets with same headers' but it leaves a row empty after each sheet data how do I correct this. It is possible to modify the code?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      I do not know why a empty row leave while you merging the data by using the VBA, that do not happen to me. If there are some blank rows needed to be remove, you can press F5 to open Go To dialog, and click Special > Blanks to select all blank cells, the right click to remove the blank rows.

      But with the Go To Special function, it will select blank cells not the blank rows which not work well while a row has data missing. In this case, you can apply Kutools for Excel's Delete Blank Rows, which can remove empty rows in selection, active worksheet, selected sheets or whole workbook.