Table of contents
在家里和办公室，在超级商店或公司处理Microsoft Excel时，我们经常需要吸收重复的工作表行，并将结果相加。 在Excel中，有不同的有效和舒适的技术来合并重复的行。 今天，我们将通过适当的例子和适当的说明来展示其中的三个。
下载实践工作手册
你可以从以下链接下载练习册。
合并重复的行.xlsm在Excel中合并重复行的3种方法
让我们假设，我们有一个数据集，其中包含几个销售代表在Excel工作表中的销售数据。 我们需要合并数据集，使每个销售代表在表中只记录一次，同时记录他的总销售额。 我们将展示三种广泛使用的合并重复行的方法来合并我们的样本数据。
1.使用合并选项来合并重复的行
Excel的合并选项 用于将多行、工作表或工作簿中的信息合并到一个地方。 它可以帮助你从数据表的不同位置总结你的信息。 我们将逐步看到这个工具如何帮助我们解决问题的情况
步骤。
1. 选择你的数据标题。 拷贝 和 粘贴 他们的位置( E4:F4 )，在那里你想显示综合数据。
2. 选择 细胞E5 位于新表的最左边的标题下。 然后去到 数据 标签。
3. 现在，去到 数据工具 组，并点击 巩固 会出现一个对话框。
4. 从 F 仪式 下拉菜单，选择 总数 (或任何你认为对你的任务有用的选项）。
5. 在 参考资料 领域，点击 R 地毯选择 图标并选择单元格的范围 B5:C14 不要忘了选择 左栏 复选框。
6. 新闻 认可 .
最后，你会得到唯一的清单，即 销售代表 和他们的 总销售额 从你的初始数据集。
阅读更多。 如何在Excel中合并行（4种方法） .
2.使用Excel数据透视表来合并重复的行
A 透视表 在这个方法中，我们将展示如何利用这个工具来合并重复的行，为我们的目的服务。
步骤。
1. 点击你的数据集中的任何单元格（在此点击 细胞B5) 并前往 插入 标签。
2. 在 桌子 组，选择 数据透视表（PivotTable 选择 .
3. ǞǞǞ 创建透视表 对话框会打开，请看 选择一个表或范围 仔细查看所选范围是否正确。 选择 现有的工作表。
4. 点击进入 地点 图标，并选择位置（此处为 细胞E4 )，你想把产生的 数据透视表（PivotTable 然后按 认可 .
一个透视表将出现在选定的 细胞E4。
5.点击 在透视表的任何地方。
ǞǞǞ 数据透视表（PivotTable 对话框将在右侧打开。
6. 标记 销售代表 和 销售 选框。 拖动 销售代表领域 在 行数 地区和 销售领域 在 价值观 地区。
最后，我们用PivotTable工具整合了我们的数据。
阅读更多：如何在Excel中根据标准合并行（最简单的方法）。
类似读物
- 如何在不丢失数据的情况下合并Excel中的重复行（6种方法）
- 如何在Excel中用逗号合并行（4种快速方法）
- Excel合并具有相同ID的行（3种快速方法）
- 在Excel中把多行转换成单列(2种方法)
- 如何在不丢失数据的情况下合并Excel中的行（5种方法）
3.使用Excel VBA代码来合并重复的行
VBA代码 我们将告诉你如何使用VBA代码来合并MS Excel中的重复行。
请注意。
在我们使用VBA代码后，原始数据将不再存在于工作表中。 我们必须备份一份数据。
步骤。
1. 首先，右键单击工作表名称" 使用VBA代码 "。 然后点击 查看代码。
2.微软Visual Basic应用程序模块 窗口将被打开。
3.复制 下面的 VBA代码 而只是 粘贴 他们进入 模块窗口 .
Option Explicit Sub CombineRows() Dim Rng As Range Dim x1 As Variant Dim xRng As Variant Dim Title As String Dim i As Integer On Error Resume Next Title = "Merge Duplicate Rows" Set Rng = Application.Selection Set Rng = Application.InputBox("Range", Title, Rng.Address, Type:=8) Set x1 = CreateObject("Scripting.x1tionary") xRng = Rng.Value For i = 1 To UBound(xRng, 1) x1(xRng(i, 1)) = x1(xRng(i,1)) + xRng(i, 2) Next Application.ScreenUpdating = False Rng.ClearContents Rng.Range("A1").Resize(x1.Count, 1) = Application.WorksheetFunction.Transpose(x1.key) Rng.Range("B1").Resize(x1.Count, 1) = Application.WorksheetFunction.Transpose(x1.items) Application.ScreenUpdating = True End Sub 你的 MS VBA模块 将出现这样的情况。
4. 现在按 F5 或点击 运行子/用户表格 图标，然后点击 运转 .
5. 我们将选择单元格的范围 B5:C14 我们要巩固和推动的 认可 .
6. 重复的行现在被合并了，销售值被添加到每个独特的 销售代表 .
阅读更多：在Excel中合并重复的行并求和值
总结
希望你会发现这些方法都很有用。 工作手册在那里供你下载并自己练习。 如果你有任何问题、评论或任何形式的反馈，请在评论框中告诉我。
