怎么将Excel不重复的数据放入数组中？

Question

本帖最后由 mpy2003 于 2013-04-02 00:03:08 编辑

Answer 1

把 Excel 表当作 ADO 的外部数据库查询，使用 Distinct 关键字。 

Answer 2

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

Answer 3

可以这样考虑：将第3列数据存入数组prArry中，然后进行排序，筛选，去掉相同的。

Answer 4

我在Excel的VBA里用到了这个可以判断在所选的范围内是否有Cell(i,3)那个值然后你说先放入再进行数组处理，我在网上找了好多，方法都不一样，也不知道怎么样比较适合我这个。你可以说一下具体过程吗？

Answer 5

For j = T.[D1048576].End(xlUp).Row To i Step -1            '去除重复型号
    
        If WorksheetFunction.CountIf(T.Range("D2:D" & j), T.Cells(j, 4)) > 1 Then
        
        T.Cells(j, 4).ClearContents
        
        T.Cells(j, 8).ClearContents
这是我在Excel里的一段