如何在Excel中不重复的列中加入文本？

网友投稿 222 2024-01-04

如何在Excel中不重复的列中加入文本？

您是否知道如何将列中的文本连接到单元格中而在Excel中没有重复项？如果在基于特定单元格值的列中加入文本而没有重复项，该怎么办？本文提供了解决问题的方法。

用公式将列中的文本联接在一起，没有重复项

使用VBA代码根据另一单元格值将一列中的文本联接在一起，没有重复项
使用出色的工具轻松将基于另一个单元格值的文本合并到列中有关合并单元格的更多教程… 用公式将列中的文本联接在一起，没有重复项

如下面的屏幕截图所示，您希望将A列中的文本连接到一个没有重复的单元格中。请执行以下操作。

1.选择一个空白单元格，将以下公式复制到其中，然后按其他 + 转移 + 输入钥匙在同一时间。

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

请注意： 在公式， ”, ”是组合文本的分隔符； A2：A12是您将连接在一起的列单元格。请根据需要更改它们。

现在，指定列中的文本已合并，没有重复。

使用VBA代码根据另一单元格值将一列中的文本联接在一起，没有重复项

有时，您可能需要在一列中加入文本，而不必根据另一个单元格中的值重复创建文本，如下面的屏幕截图所示，您可以按以下步骤进行操作。

1.在工作表中包含您要加入的文本，请按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块然后将下面的VBA代码复制到“模块代码”窗口中。

VBA代码：根据另一单元格值将列中的文本联接在一起，没有重复项

Sub JoinTextsWithoutDuplicates() Updated by Extendoffice 20190924 Dim xRg As Range Dim xArr As Variant Dim xCell As Range Dim xTxt As String Dim I As Long Dim xDic As Object Dim xValue Dim xStr, xStrValue As String Dim xB As Boolean On Error Resume Next xTxt = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8) Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange) If xRg Is Nothing Then Exit Sub If xRg.Areas.Count > 1 Then MsgBox "Does not support multiple selections", , "Kutools for Excel" Exit Sub End If If xRg.Columns.Count <> 2 Then MsgBox "There must be only two columns in the selected range", , "Kutools for Excel" Exit Sub End If xArr = xRg Set xDic = CreateObject("Scripting.Dictionary") xDic.CompareMode = 1 For I = 1 To UBound(xArr) If Not xDic.Exists(xArr(I, 1)) Then xDic.Item(xArr(I, 1)) = xDic.Count + 1 xArr(xDic.Count, 1) = xArr(I, 1) xArr(xDic.Count, 2) = xArr(I, 2) Else xStrValue = xArr(I, 2) xB = True For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",") If xStr = xStrValue Then xB = False Exit For End If Next If xB Then xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2) End If End If Next Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr End Sub

Copy

3。按 F5 键来运行代码。在弹出 Kutools for Excel 对话框中，选择范围，包括将要加入的文本所基于的值和将加入的文本，然后单击 OK 按钮。

然后，提取唯一值，并将它们在另一列中的相应唯一文本合并并放置在新工作表中。

使用出色的工具轻松将基于另一个单元格值的文本合并到列中

也许您不擅长公式或VBA代码。在这里推荐高级组合行实用程序 Kutools for Excel 为了你。使用此实用程序，只需单击几下，即可基于另一个单元格中的值轻松地将文本连接到列中。

申请前 Kutools for Excel请 首先下载并安装.

请注意： 由于该实用程序将直接应用于原始范围，因此请在执行以下操作之前复制原始数据。

1.选择范围（包括要加入的文本和要加入的文本所基于的值），然后单击 Kutools > 内容 > 高级合并行。 看截图：

2.在 高级组合行 对话框，请执行以下操作：

选择包含您将基于其连接文本的值的列，然后单击 首要的关键; 选择包含要加入单元格的文本的列，然后单击结合 > 逗号; 如果还有列，请为它们指定条件。在这种情况下，我选择“销售”列，然后选择计算 > 和。点击 OK 按钮。看截图：