EXCEL提取一行多列的唯一值放在同一个单元格中

方法1:

为了提取一行多列的唯一值放在右边的单元格中,可以使用下列公式,

=TEXTJOIN(",",TRUE,UNIQUE(TRANSPOSE(I2:L2)))

使用代码框存放的函数,可以直接复制使用,注意在使用时把位置区域别填错了,输入公式就能得到如下结果:

方法2

使用方方格子解决问题,思路如下:1,将多行合并成一行,再删除重复值即可。

操作如下

方方格子==>编辑==>合并转换==>按行合并

选取选择合并区域==>分隔符==>其他字符==>选择逗号==>确定

存放结果放在M2,点击确定

接着点击 数据分析==>随机重复==>删除重复值

选择 单元格内对比==>选择数据区域==选择保留一个==>点击确定

结果就按照我们想要的了。觉得有用建议收藏

Excel提取多列中的唯一值可以使用“高级筛选”功能。以下是具体步骤: 1. 将数据放在同一工作表中,确保每列都有标题行。 2. 在任意单元格中,输入要提取唯一值的列标题,例如 A1、B1、C1。 3. 在数据区域选中整个表格,包括标题行。 4. 点击“数据”选项卡,然后选择“高级”。 5. 在“高级筛选”对话框中,选择“复制到其他位置”选项。 6. 在“列表范围”中输入整个表格的范围,包括标题行。 7. 在“条件区域”中输入标题行的范围,例如 A1:C1。 8. 确保选中“唯一记录”复选框,在“复制到”框中输入唯一值的起始单元格,例如 F1。 9. 点击“确定”,即可在 F1 开始的单元格提取多列中的唯一值。 如果你想使用 VBA 代码来提取多列中的唯一值,可以使用以下代码: ```vba Sub ExtractUniqueValues() Dim ws As Worksheet Dim lastRow As Long Dim uniqueValues As Variant Dim i As Long, j As Long Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") ' 创建一个字典对象 Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你的工作表名称 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取最后一行 For i = 2 To lastRow ' 从第二行开始循环 ' 使用字典对象来存储唯一值 If Not dict.exists(ws.Cells(i, 1).Value & "|" & ws.Cells(i, 2).Value & "|" & ws.Cells(i, 3).Value) Then dict.Add ws.Cells(i, 1).Value & "|" & ws.Cells(i, 2).Value & "|" & ws.Cells(i, 3).Value, "" End If Next i ' 将唯一值写入新的工作表中 j = 1 For Each uniqueValues In dict.keys ws.Cells(j, 6).Value = Split(uniqueValues, "|")(0) ws.Cells(j, 7).Value = Split(uniqueValues, "|")(1) ws.Cells(j, 8).Value = Split(uniqueValues, "|")(2) j = j + 1 Next uniqueValues End Sub ``` 这将提取 A、B、C 列中的唯一值将它们写入新的工作表中的 D、E、F 列中。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值