如何将Excel不重复的数据放入数组中

怎么将Excel不重复的数据放入数组中?
本帖最后由 mpy2003 于 2013-04-02 00:03:08 编辑
    For i = 2 To j
        If xlSheet.Cells(i, 3) <> "" Then
            If xlSheet.CountIf(xlSheet.Range("C1:C" & i), xlSheet.Cells(i, 3)) = 1 Then
                prArry(n) = xlSheet.Cells(i, 3)
                n = n + 1
            End If
        End If
    Next i

我的意思就是想要这种效果,但是发现那一句对比(在Excel的VBA里可用)提示不支持该属性或方法,请问我要怎么弄?
不重复数据 数组

------解决方案--------------------
If xlSheet.CountIf(xlSheet.Range("C1:C" & i), xlSheet.Cells(i, 3)) = 1 Then
这个判断是什么意思? 
在Excel对象库中不存在CountIf属性。