用vb 怎样知道excel一列中有几个不一样的内容 就像筛选的功能 一点按钮就可以知道这一列有什么 谢谢

Question

如题所述

Answer 1

1、通过do while循环得到这一列有多少数据。
2、按数据量的多少定义一个数组，如A(100)
3、先将第一个数据写入A(0)，再用do while循环读取数据，读第二行的数据开始，加一条For Next循环，与A(0)进行对比，相同的就跳过，不同的就写入A(1)，每读一个数据都与前面得到的数据进行比较，不同的就继续写入A(2)、A(3)。。。。。。A(n)，结束。
4、最后用For i=0 to n。。。。。输出所有不同的数。