MyException - 我的异常网
当前位置:我的异常网» VB » 如何将Excel不重复的数据放入数组中

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

www.myexceptions.net  网友分享于:2013-04-10  浏览:32次
怎么将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属性。

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有