如果Excel的另一列中存在相同的值，如何串联单元格？

网友投稿 · 2023-10-25 11:10 · 产品资讯 · 阅读 672

如果Excel的另一列中存在相同的值，如何串联单元格？

如下面的屏幕截图所示，如果要根据第一列中的相同值连接第二列中的单元格，可以使用多种方法。在本文中，我们将介绍三种方法来完成此任务。

如果Excel的另一列中存在相同的值，如何串联单元格？

如下面的屏幕截图所示，如果要根据第一列中的相同值连接第二列中的单元格，可以使用多种方法。在本文中，我们将介绍三种方法来完成此任务。

如果Excel的另一列中存在相同的值，如何串联单元格？

如果单元格与公式和过滤器的值相同，则串联它们

如果值相同，只需单击几下即可轻松连接单元格 Kutools

如果使用VBA代码将值相同，则串联单元格

如果单元格与公式和过滤器的值相同，则串联它们

以下公式有助于根据另一列中的相同值连接一列中相应单元格的内容。

1.选择第二列以外的空白单元格（此处选择单元格C2），输入公式 = IF（A2 <> A1，B2，C1＆“，”＆B2）进入编辑栏，然后按输入键。

2.然后选择单元格C2，并将“填充手柄”向下拖动到需要连接的单元格上。

3.输入公式 = IF（A2 <> A3，CONCATENATE（A2，“，”“”，C2，“”“”），“”）进入单元格D2，然后将“填充手柄”向下拖动到其余单元格。

4.选择单元格D1，然后单击 Data > 筛选器。看截图：

5.单击单元格D1中的下拉箭头，取消选中 （空白） 框，然后单击 OK 按钮。

如果第一列的值相同，则可以看到单元格是串联的。

备注：要成功使用上述公式，A列中的相同值必须是连续的。

如果具有相同的值，则轻松连接单元格 Kutools for Excel （几次点击）

上述方法需要创建两个辅助列并且涉及多个步骤，这可能是不方便的。如果您正在寻找更简单的方法，请考虑使用 高级组合行 来自的工具 Kutools for Excel. 只需单击几下，此实用程序就可以让您使用特定的分隔符连接单元格，从而使该过程快速而轻松。

Tips:: 在应用此工具之前，请先安装 Kutools for Excel 首先。 立即前往免费下载.

1。点击 Kutools > 合并与拆分 > 高级组合行 启用此功能。

2.在 高级组合行 对话框，你只需要：

选择要连接的范围；将列设置为与 首要的关键 列。指定分隔符以合并单元格。点击 OK.

结果

备注:

要应用此功能，请下载并安装 Kutools for Excel 第一。要了解有关此功能的更多信息，请查看这篇文章：在 Excel 中快速组合相同的值或重复的行

如果使用VBA代码将值相同，则串联单元格

如果另一列中存在相同的值，您还可以使用 VBA 代码连接一列中的单元格。

1。按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。然后将以下代码复制并粘贴到模块窗口。

VBA代码：如果值相同，则串联单元格

Sub ConcatenateCellsIfSameValues() Dim xCol As New Collection Dim xSrc As Variant Dim xRes() As Variant Dim I As Long Dim J As Long Dim xRg As Range xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2) Set xRg = Range("D1") On Error Resume Next For I = 2 To UBound(xSrc) xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1)) Next I On Error GoTo 0 ReDim xRes(1 To xCol.Count + 1, 1 To 2) xRes(1, 1) = "No" xRes(1, 2) = "Combined Color" For I = 1 To xCol.Count xRes(I + 1, 1) = xCol(I) For J = 2 To UBound(xSrc) If xSrc(J, 1) = xRes(I + 1, 1) Then xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2) End If Next J xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2) Next I Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2)) xRg.NumberFormat = "@" xRg = xRes xRg.EntireColumn.AutoFit End Sub

Copy

1. D1 在线路设置xRg = Range（“ D1”）表示结果将从单元格 D1 开始放置。

2。 “没有“而 “组合颜色” 在线路 xRes（1，1）=“否”，xRes（1，2）=“组合颜色” 是所选列的标题。

3。按 F5 键运行代码，那么您将获得指定范围内的串联结果。

如果具有相同的值，则轻松连接单元格 Kutools for Excel

最佳办公生产力工具

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

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

为什么需要 Kutools for Excel

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

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

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

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

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

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

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

***

*** *** ***

Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！

*** *** ***

标签：图表 bi

点击体验模板

免费注册简道云