体验零代码搭建

如何在Excel中串联唯一值?

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

如何在Excel中串联唯一值?

如果我有一长串的值填充了一些重复数据,那么现在,我只想查找唯一值,然后将它们串联到单个单元格中。 如何在Excel中快速轻松地解决此问题?

如何在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 多种场景中的工作。

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

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

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

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

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

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

***

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


低代码框架:加速应用程序开发的未来 << 上一篇
2023-10-25 11:10
Adobe Photoshop怎么拉伸图片不变形
2023-10-25 11:10
下一篇 >>

相关推荐