提取Excel不重复值的自定义函数方案

提取Excel不重复值的自定义函数方案，Function MergerRepeat(Index As Integer, ParamArray arglist() As Variant)
---------------------------------------------
’时间：2008-12-26
’理整：宇 bengdeng
’功能：获得指定单元格区域或数组中的不重复集合或值
’参数说明：
’Index：整型，当值小于1时，函数返回一个集合；
’ 大于1且小于不重复项的时，返回一个不重复的值
’ 大于不重复项时，返回空。
’arglist()：可为单元格区域或数组常量。
----------------------------------------------
Dim NotRepeat As Object, tStr As String
Set NotRepeat = CreateObject("Scripting.Dictionary")
For Each arg In arglist
For Each rRan In arg
If TypeName(rRan) = "Range" Then
If rRan.Value <> "" Then NotRepeat(rRan.Value) = 0
Else
NotRepeat(rRan) = 0
End If
Next
Next
If Index < 1 Then
MergerRepeat = NotRepeat.keys
ElseIf Index <= NotRepeat.Count Then
arr = NotRepeat.keys
MergerRepeat = arr(Index - 1)
Else
MergerRepeat = ""
End If
End Function

下面用几个应用的实例，来说明该函数的应用。

1、返回A1：A10中不重复值的个数。

=COUNTA(MergerRepeat(0,A1:A10))

2、在B列从B1格开始列出A1:A10的不重复数值。

在B1格设定公式：

=MergerRepeat(ROW(),$A$1:$A$10)

并向下填充。

3、求多个区域（可以不连续）加数组的不重复个数。

=COUNTA(MergerRepeat(0,A1:A6,{"abc","Excel吧",1,"excelba.com"},C2:C6))

赞 (0)

相关推荐

  • Excel查找重复值技巧

    想要查找重复值怎么办,下面教给大家 操作方法 01 查找重复值 方法一:辅助列+公式法 在A列的右侧插入辅助列,在辅助列中输入公式来确定区域中的重复值. 1.在B2单元格中输入公式 =IF(SUMPR ...

  • Excel中如何提取不重复值

    Excel功能强大,是我们最常用的办公软件之一.在我们制作Excel表格的时候,常会利用到"筛选"这个功能.今天,小编就来教大家,在Excel中利用高级筛选提取出不重复值. 操作方 ...

  • 怎么在Excel2003版中查找重复值

    编辑Excel文档经常会遇到需要查找重复值并删除.在我的中我分享了一篇题为:Excel表格中怎么查找重复项的文章.其使用的软件为excel2007. 为了解决部分使用版本为excel2003版的网友遇 ...

  • Excel中提取指定条件的不重复值的方法

    Excel中提取指定条件的不重复值的方法 话说某单位国庆员工文体活动安排,不同的员工参加有不同的项目. 现在需要看看美女小丽一共参加了几个项目. 也就是提取B列等于指定姓名的.C列不重复项. 如果用函 ...

  • Excel表格vba提取不重复值（表格中vba提取不重复数据的方法）

    Excel表格vba提取不重复值（表格中vba提取不重复数据的方法）

    在我们日常工作当中可能会碰到这样的情况:制作的Excel表格中有多行多列并且还有重复值,那么我们想查看到底有多少重复的怎么办?今天小编想分享一种超级快的方法,不用函数公式或者高级的VBA快速提取不重复 ...

  • Excel提取两列之间的重复值

    在Excel中处理数据时,经常会碰到"提取两列数据之间的重复值"的问题. 这里介绍一下用工作表函数"match"函数来 "提取两列数据之间的重复值&q ...

  • Excel：提取、比较两列中的重复值

    在Excel中处理数据中,我们有时候会遇到提取或比较两列数据之间重复值的问题.今天就介绍一下用COUNTIF函数来提取两列数据之间的重复值. 操作方法 01 首先来看一下COUNTIF函数的语法. E ...

  • vlookup删除重复项（lookup函数提取重复项对应值）

    vlookup删除重复项（lookup函数提取重复项对应值）

    在EXCEL表格里操作数据的时候,往往需要用到删除重复值,而如何删除一列数据里的重复值呢?最简单的办法当属标准功能了,选中数据列,点击"数据"选项卡里的重复值,就可以把重复的数据删 ...

  • Excel提取指定条件的不重复值

    Excel提取指定条件的不重复值