查找excel中不重复数据

Sub GetDistinctData()
'定义一个遍历范围cell
Dim cell As Range, res
'定义Dictonary对象dataCollection
Set dataCollection = CreateObject("Scripting.Dictionary")
'遍历A1到A500所有单元格
For Each cell In Range("A1:A500")
'假如单元格值不为空且dataCollection中未收录，则添加
If cell <> "" And (Not dataCollection.Exists(cell.Value)) Then dataCollection.Addcell.Value, CStr(cell.Value)
End If
Next
'从dataCollection中获取刚才过滤之后的数据
res = dataCollection.Items
'把数据不重复的写入B列
For i = 1 To dataCollection.Count
Cells(i, 2) = res(i - 1)
Next i
End Sub
不重复值的自定义函数方案
(转自网络）
提取不重复值的自定义函数方案，
Function MergerRepeat(Index As Integer, ParamArrayarglist() As Variant) '---------------------------------------------
’
’
’功能：获得指定单元格区域或数组中的不重复集合或值
’参数说明：
’Index：整型，当值小于1时，函数返回一个集合；
’大于1且小于不重复项的时，返回一个不重复的值
’大于不重复项时，返回空。

’a rglist()：可为单元格区域或数组常量。

'----------------------------------------------
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数组公式
Excel中数组公式非常有用，尤其在不能使用工作表函数直接得到结果时，数组公式显得特别重要，它可建立产生多值或对一组值而不是单个值进行操作的公式。

输入数组公式首先必须选择用来存放结果的单元格区域（可以是一个单元格），在编辑栏输入公式，然后按Ctrl＋Shift＋Enter组合键锁定数组公式，Excel将在公式两边自动加上花括号“{}”。

注意：不要自己键入花括号，否则，Excel认为输入的是一个正文标签。

选取数组公式所占有的全部区域先选中区域中任意一个单元格，然后按下Ctrl＋/键即可。

编辑或删除数组公式编辑数组公式时，须选取数组区域并且激活编辑栏，公式两边
的花括号将消失，然后编辑公式，最后按Ctrl＋Shift＋Enter键。

选取数组公式所占有的全部区域后，按Delete键即可删除数组公式。

数组常量的使用数组公式中还可使用数组常量，但必须自己键入花括号“{}”将数组常量括起来，并且用“，”和“；”分离元素。

其中“，”分离不同列的值，“；”分离不同行的值。

使用不在工作表中的数组有时，公式仅占用一个单元格时也需要以数组的方式输入。

其具体原则是：一个公式使用了数组，并且这个数组不在工作表上，就应该使用数组的方式输入这个公式。

下面介绍两个使用数组公式的例子。

1 有如图所示的工作表，需分别计算各商品的销售额，可利用数组公式来实现。

单元格F2中的公式为：{=SUM（IF（A2：A11=″商品1″，B2：B11＊C2：C11，0））}.这个数组公式创建了一个条件求和，若在A2：A11中出现值“商品1”，则数组公式将B2：B11和C2：C11中与其相对应的值相乘并累加，若是其他值则加零。

同时，虽然数组B2：B11和C2：C11均在工作表中，但其相乘的数组B2：B11＊C2：C11不在工作表中，因此必须使用数组公式。

2 假设要将A1：A50区域中的所有数值舍入到2位小数位，然后对舍入的数值求和。

很自然地就会想到使用公式：=ROUND（A1，2）＋ROUND（A2，2）＋…＋ROUN D（A50，2）。

有没有更简捷的算法呢？有。

因为数组ROUND（A1：A50，2）并不在工作表中，因此要使用数组的方式输入公式，即：{=SUM（ROUND（A1：A50，2））}.。