excel 获取唯一值的多种方法:分别用函数、技巧、透视、VBA多种方法实现取唯一值
发布时间:2023-03-14 09:03:29
excel取唯一值,也称为提取不重复。在实际工作中,经常会使用到。
excel取唯一值的方法很多,比如通过高级筛选、函数公式以及自定义函数都可以实现。
我们以下图为例,A列城市,有重复的。需要提取唯一值放在C列。
excel取唯一值方法一:
使用excel流行的筛选公式实现,C1输入公式:=INDEX(A:A,SMALL(IF(MATCH(A$2:A$9,A$2:A$9,)=ROW($1:$8),ROW($2:$9),4^8),ROW(A1)))&"",按ctrl+shift+enter组合键结束。
公式的思路和理解,请参看:Excel用函数公式筛选数据的方法
excel取唯一值方法二:
单击数据——高级筛选,可以直接筛选不重复值,即唯一值。使用高级筛选需要注意一点的是,必须包含列字段。比如下图A2:A9只是数据内容,需要再选中A1,即列表区域为:A1:A9。其实设置参看下图就OK。
excel取唯一值方法三:
excel中数据透视表本身就有去重复功能。单击插入——数据透视表,然后勾选“城市”字段,唯一值就提取出来了。最后,也可以将数据透视表提取出来的唯一值复制到其余单元格,然后把不需要的数据透视表删得即可。
具体可以参看下面的动画演示,很简单的操作过程。
excel取唯一值方法四:
学习VBA的朋友,也可以使用自定义函数取唯一值。
方法是:按Alt+F11组合键,插入→模块→在VBE窗口中复制以下代码,回到工作表中,C1单元格输入公式:=wsingle($A$1:$A$9,ROW(A1)),下拉,直到出现0为止,A列所有的唯一不重复值就别提取出来了。
Function Wsingle(rng1 As Range, x As Integer)
Dim m As Range
Dim n As Range
Dim i As Integer
For Each m In rng1
k = k + 1
If k > Application.WorksheetFunction.CountA(rng1) + 10 Then Exit Function
If Application.WorksheetFunction.CountIf(rng1.Offset(k - 1, 0), m) = 1 Then
j = j + 1
If j = x Then
Wsingle = m
End If
End If
Next m
End Function
excel取唯一值方法五:
这个方法也是使用VBA代码,按Alt+F11组合键,插入→模块→在VBE窗口中复制以下代码,并单击工具栏的绿色“运行”按钮,就可以实现将A列唯一值提取自动提取到B列。
Sub 取唯一值()
Dim i As Range
Dim n As Long
n = 1
For Each i In Range("a1:a100")
If Application.WorksheetFunction.CountIf(Range("$A$1:" & i.Address), i) = 1 Then
Cells(n, 2) = i
n = n + 1
End If
Next
End Sub
excel 获取唯一值的多种方法:分别用函数、技巧、透视、VBA多种方法实现取唯一值的下载地址:
猜你喜欢
- 怎么关闭Word文档中自动添加项目编号1、启动Word 2013,打开“Word选项”对话框,在左侧选择“校对”选项,在右侧窗格中的“自动更
- 在使用win10系统时,很多计算机用户都发现了一个问题,即只要win10系统进入待机状态,就会崩溃。这个问题的原因是什么?让我们看看详细的解
- 函数说明DCOUNT函数的主要作用是返回数据库或列表的列中满足指定条件并且包含数字的单元格个数。参数 field 为可选项,如果省略,函数
- Excel中的超链接具体该如何创建呢?下面是由小编分享的excel中创建数据超链接的方法,以供大家阅读和学习。excel中创建数据超链接的方
- Excel的SUMXMY2函数主要作用是计算数组对应值之差的平方和,本文介绍Microsoft Excel中SUMXMY2函数的公式语法和用
- 最近,一个小伙伴回应说,当电脑玩反水寒时,win10系统崩溃,无法启动并进入系统进行修复。我该怎么办?我该怎么修理呢?事实上,我们可以下载新
- 1.打开Word文档,点击工具栏左上角的“Office按钮”然后选择进入“Word选项”。 2.在Word选项里点
- excel快速录入日期和时间的方法是这样的:选中需要输入日期的单元格,按下“Ctrl+;”组合键,即可输入系统日期;按下“Ctrl+Shif
- 之前介绍过大量pdf转word类的软件工具,然而也是有诸多网友询问如何将Word文档转换为PDF文件,此类应用相对简单,这里就总结下比较方便
- 正在使用Word编辑一篇介绍四则运行的文稿,需要在文档中列出算式及结果。为此,你或许会拿出计算器或 者求助于“开始”菜单“附件”中的“计算器
- 很多用户使用了习惯了Win10传统的开始菜单,想恢复之前的菜单,目前恢复Windows 10传统开始菜单的工具和方法都非常多,除了可以安装第
- Excel中经常需要用RANK进行排序,具体该如何运用rank进行排序呢?接下来是小编为大家带来的excel排序公式rank的用法,供大家参
- 问题:本人非常重要的Word资料,本来想保留A部分,删除B部分,结果把A部分给删除了。并且存盘,然后关掉Word2003关机了。今早才发现把
- 若文章中有合理的文档结构图,不仅能快速定位到某一章节的内容,还能通过查看文档结构图对文章主要内容有大致了解。那么在word文档中怎么设置显示
- 随著微软系统版本的更新,积累的版本越来越多,哪一个版本更好用一些这类问题也成为大家争论的话题。那win10和win8这两个笨拙版本哪个好用、
- excel表默认情况下输入一长串数字如身份证号码是显示不正常的,那么在Excel中如何正确显示出长串数字?下面小编就为大家详细介绍一下,不会
- 那么,这样让标题看起来更醒目, 4、周报表我设定为浅蓝色,如何excel表格如何填充上美丽的颜色。设定你想要的颜色,一份excel表格适当填
- win10系统中的edge浏览器虽好用但是兼容性方面令人不大满意,如何设置兼容性,具体又要在哪里进行设置?下面就一起来看看详细方法吧。edg
- 1、在查找替换页面中,开下下面的“高级”,在搜索选项中勾选"使用通配符",在查找内容中输入"?"(注
- 常用快捷键快捷键 作用Ctrl+Shift+Spacebar 创建不间断空格Ctrl+ -(连字符)创建不间断连字符Ctrl+B 使字符变为