Excel提取某一列的唯一值

点击【筛选】(【高级筛选】),参数里:

  • 列表区域:为需要选择唯一值的那一列
  • 复制到:生成唯一值的目标区域

据说新版本的excel有了unique()函数,可以很快捷的选择某一列的唯一值,但是博主的excel里没有这个函数,所以还是手工方式

在这里插入图片描述

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
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
发出的红包

打赏作者

呆萌的代Ma

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值