如何通过设置Excel行距提升工作表可读性和美观度
219
2023-12-17
如何在Excel中串联唯一值？
如何在Excel中串联唯一值？
如果我有一长串的值填充了一些重复数据，那么现在，我只想查找唯一值，然后将它们串联到单个单元格中。 如何在Excel中快速轻松地解决此问题？
在列中查找唯一值，然后使用VBA代码将它们连接到一个单元格中
在一列中查找唯一值并将它们连接到一个单元格中 Kutools for Excel
列出唯一值并使用VBA代码连接相应的值
列出唯一值并将相应的值与 Kutools for Excel
在列中查找唯一值，然后使用VBA代码将它们连接到一个单元格中下列 用户定义功能 可以帮助您将唯一值连接到列表中的单个单元格中，请执行以下操作：
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。
VBA代码：将唯一值连接到单个单元格中：
Function ConcatUniq(xRg As Range, xChar As String) As String
updateby Extendoffice
Dim xCell As Range
Dim xDic As Object
Set xDic = CreateObject("Scripting.Dictionary")
For Each xCell In xRg
xDic(xCell.Value) = Empty
Next
ConcatUniq = Join$(xDic.Keys, xChar)
Set xDic = Nothing
End Function
Copy
3. 然后回到您的工作表，并输入以下公式： = ConcatUniq（A1：A17，“，”） 放入要输出级联结果的空白单元格，然后按 输入 获取唯一的串联结果的关键，请参见屏幕截图：
备注：在以上公式中， A1：A17 是您要连接的单元格范围，而逗号“,”是您需要分隔组合值的分隔符，您可以根据需要更改它们。
在一列中查找唯一值并将它们连接到一个单元格中 Kutools for Excel如果您不熟悉VBA代码， Kutools for Excel 也可以帮助您，您可以将 选择重复和唯一单元格 和 结合 实用程序来实现您所需的结果。
Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用.前往下载30天免费试用购买贝宝/ MyCommerce
安装后 Kutools for Excel，请执行以下操作： 免费下载 Kutools for Excel 现在！ )
1。 选择仅要合并唯一值的单元格列表。
2。 点击 Kutools > 选择 > 选择重复和唯一单元格，请参见屏幕截图：
3。 在 选择重复和唯一单元格 对话框中选择 全部唯一（包括第一个重复项） 选项下 第 部分，请参见屏幕截图：
Tips：如果要合并唯一值（不包括首次出现的重复项），请选中 仅唯一值 选项。
4。 然后点击 OK 按钮，并且只选择了唯一值，然后按 按Ctrl + C 复制它们，然后按将它们粘贴到特定位置 按Ctrl + V，请参见屏幕截图：
5。 选择粘贴的唯一单元格，然后单击 Kutools > 合并与拆分 > 合并行，列或单元格而不会丢失数据，请参见屏幕截图：
6。 在 合并列或行 对话框，选择 合并成单个单元格 在下面 根据以下选项合并选定的单元格，然后为合并的数据指定分隔符，请参见屏幕截图：
7。 然后点击 Ok or 使用 按钮，提取的唯一值已连接到一个单元格中，如以下屏幕截图所示：
免费下载 Kutools for Excel 现在！
列出唯一值并使用VBA代码连接相应的值在另一种情况下，您有一个包括两列的数据范围，现在，您只想列出唯一值并连接另一列的相应值以获得以下结果，您是否有任何好的方法来完成这项工作在Excel中？
在这里，您可以应用以下VBA代码来处理此作业，请执行以下操作：
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。
VBA代码：列出唯一值并连接相应的数据
Sub test()
updateby Extendoffice
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
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
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub
Copy
3。 然后按 F5 键运行此代码，并弹出一个提示框，提醒您根据唯一值选择要连接的数据范围，请参见屏幕截图：
4。 点击 OK，则已提取唯一值，并将它们在另一列中的对应值连接在一起，形成一个新的工作表。
备注：在上面的代码中，您可以更改红色逗号 xArr（xDic.Item（xArr（I，1）），2）= xArr（xDic.Item（xArr（I，1）），2）＆“,“＆xArr（I，2） 在此脚本中使用您要分隔组合数据的任何其他定界符。
列出唯一值并将相应的值与 Kutools for Excel如果你有 Kutools for Excel，其 高级组合行 功能，您无需任何代码即可快速轻松地解决此问题。
安装后 Kutools for Excel，请执行以下操作： 免费下载 Kutools for Excel 现在！ )
1。 首先，如果要保留原始数据，则应复制原始数据。 然后根据唯一值选择要连接的数据范围。
2。 然后点击 Kutools > 合并与拆分 > 高级组合行，请参见屏幕截图：
3。 在 高级组合行 对话框中，单击只列出唯一值的列名，然后单击 首要的关键，请参见屏幕截图：
4。 然后，单击要连接的另一个列名，然后单击 结合，然后选择一个分隔符来分隔合并的数据，请参见屏幕截图：
5。 然后点击 Ok 按钮，这些值已经根据另一列的唯一值进行了级联，如下图所示：
免费下载 Kutools for Excel 现在！
最佳办公生产力工具
将小时转化为分钟 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小时内删除侵权内容。
相关文章
推荐文章
最近发表
