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

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

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

  如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。

合并重复的行并在Excel中对值求和 在Excel中，当您具有一系列包含某些重复项的数据时，您可能总是会遇到此问题，而现在您想要组合重复数据并在另一列中求和相应的值，您如何解决此问题？ 尝试本文中的方法。

在Excel中将多个单元格合并为带有空格，逗号或其他分隔符的单元格 当您将多个列或行中的单元格合并为一个单元格时，合并后的数据可能不会被分隔。 但是，如果要用指定的标记（例如空格，逗号，分号或其他标记）将它们分开，该怎么办？ 本教程将为您介绍一些方法。

串联单元格以保持Excel中的数字/日期格式 您可能已经注意到，当我们在Excel中应用CONCATENATE函数时，日期格式（2014-01-03）和数字格式，例如货币格式（$ 734.7），百分比格式（48.9％），小数位（24.5000）等。被删除并在连接结果中显示为常规数字。 在本文中，我们提出了几种解决方法，以在Excel中保留日期或数字格式来连接数据。

反转Excel中的串联功能 众所周知，Excel中的Concatenate函数可以帮助我们将多个单元格合并为一个单元格，但是，有时您想要做与Concatenate函数相反的操作，这意味着不合并单元格，而是将单元格值拆分为多个单独的单元格。 本文中的方法将有助于解决问题。

如果Excel中的另一列中存在相同的值，则串联单元格 本文提供了一些方法来帮助您轻松连接单元格（如果Excel的另一列中存在相同的值）。

有关合并单元格的更多教程…

最佳办公生产力工具

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