怎么将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属性。