提取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,},C2:C6))
【提取Excel不重复值的自定义函数方案】相关文章：