如何基于Excel中的重复项将多行合并为一行?

网友投稿 296 2023-12-16

如何基于Excel中的重复项将多行合并为一行?

也许您有以下屏幕截图数据,在“产品名称”列A中,有一些重复项,现在您需要删除列A中的重复项,但要合并列B中的相应值,请参见屏幕截图:

您有解决此任务的有效方法吗?

使用VBA代码将多个重复的行合并为一个

将多个重复行合并为一个 Kutools for Excel

合并多个重复行并对值求和/求平均值 Kutools for Excel

使用VBA代码将多个重复的行合并为一个
惊人的! 在 Excel 中使用高效的选项卡,如 Chrome、Firefox 和 Safari! 每天节省50%的时间,并减少数千次鼠标单击!

以下VBA代码可以帮助您根据列A的值合并重复的行,并且以下代码仅适用于两列。 因此,如果您有两列数据,那么此代码将为您提供帮助。

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.

2。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.

VBA代码:将多行合并为一

Sub CombineRows() Update 20131202 Dim WorkRng As Range Dim Dic As Variant Dim arr As Variant On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set Dic = CreateObject("Scripting.Dictionary") arr = WorkRng.Value For i = 1 To UBound(arr, 1) xvalue = arr(i, 1) If Dic.Exists(xvalue) Then Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2) Else Dic(arr(i, 1)) = arr(i, 2) End If Next Application.ScreenUpdating = False WorkRng.ClearContents WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys) WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items) Application.ScreenUpdating = True End Sub
Copy

3。 然后按 F5 键,并弹出一个提示框,提醒您选择需要组合的范围。 看截图:

4。 然后点击 OK,则B列中的值已合并为一个记录,并用空格分隔。

笔记:

1.此代码可以销毁原始数据,使用时最好先备份数据。

2.此代码仅适用于两列,如果您有两列以上,则此代码将仅合并前两列并删除其他列数据。 使用此代码时,请务必谨慎。

将多个重复行合并为一个 Kutools for Excel

既然上面的代码有一定的局限性和风险,是否有方便而安全的方法来完成这项工作? 用 Kutools for Excel高级组合行 实用程序,您可以快速删除您所基于的列中的多个重复行,然后合并或对其他记录进行一些计算到适当的单元格中。

Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用,不受限制。 立即获取.

安装后 Kutools for Excel,请执行以下操作:

1。 选择要合并重复项的范围数据。

2。 然后点击 Kutools > 内容转换器 > 高级组合行。 看截图:

3。 在 高级组合行 对话框中,选择列名称作为要基于其组合值的键列,然后单击“确定”。 关键列。 看截图:

4。 然后继续单击您需要将其值合并到一条记录中的列,然后单击 合并作业 并选择 仅与分隔符结合,然后选择一个分隔符,您需要从右边的列表中分隔出组合的值。 看截图:

如何基于Excel中的重复项将多行合并为一行?

5。 完成设置后,单击 OK,您的数据将根据键列进行合并,并以分隔符分隔。

请注意: 如果您不需要为其余列设置操作,则只需保留默认状态即可。

合并多个重复行并对值求和/求平均值 Kutools for Excel

有了这个多功能 高级组合行 实用程序,您可以合并重复的行,并对值进行一些计算。

1。 选择要合并重复项的范围数据。

2。 去的 高级组合行 对话框;

(1.)选择一个列名作为要基于其计算其他列值的键列,然后单击 关键列; (2.)选择您需要对值进行一些计算的列,然后单击 合并作业 > 合并计算,然后选择一种所需的计算类型,在这种情况下,我选择 总和。 看截图:

3。 如果您不需要为其余列设置操作,只需保持默认状态,然后单击 OK,则A列中的重复值将被合并,并且B列中其对应的值将相加。 查看屏幕截图:

笔记:

1.如果您检查 我的数据有标题 选项,应用此实用程序时将忽略范围的标题(第一行)。

2. 使用格式化的值:合并重复的单元格后,将保留值的格式。

3.此实用程序不可用于过滤数据。

单击以了解有关此高级合并行功能的更多信息。

相关文章:

合并重复的行并求和

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!

为什么需要 Kutools for Excel

🛠️  超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。

📈  卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!

⏱️  高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。

📊  定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。

🗄️  强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝  七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓  用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。

立即下载,与 Excel 一起穿越时空!

阅读更多 免费下载... 采购... 
Office Tab 为 Office 带来选项卡式界面,让您的工作更轻松
在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击!
阅读更多 免费下载... 采购... 

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何将多列合并为Google表格中的一列?
下一篇:如何在Excel中将多行合并到一个单元格?
相关文章