vba 数组 重复数据 vba 怎么除去数组中的重复数据

利用EXCEL VBA如何将一列数据中不重复的数据读取到数组中 假设BAX，BOX，DHL，FED，YUAN，BAX，BOX，BOX，FED，FED数据放到表格sheet1中的A1到A9中。运行如下代码后，将不重复的BAX，BOX，DHL，FED，YUAN放到数组str_arr中，不重复的个数放到count中。代码已经调试ok了。Sub del_repeat()Dim i As IntegerDim str_arr(100)As StringDim count As IntegerDim strtmp As Stringcount=0j=1For i=1 To 1000strtmp=Worksheets(\"sheet1\").Cells(i，1).Valuestrtmp=Trim(strtmp)For j=1 To countIf strtmp=str_arr(j)ThenExit ForEnd IfNext j'说明有重复的，则追加到str_arr数组中If(j>；count)And(strtmp<；>；\"\")Thencount=count+1str_arr(count)=strtmpEnd IfNext iEnd Sub

用VBA统计重复数据，在一个多行多列的区域中，有大量的数据，其中许多是重复的。如果想显示出各数据的重复出现次数，是一件比较麻烦的事情，如果数据都分布在同一列中还好办。

excel vba 用数组方法筛选不重复数据 今天刚从网上学到了一段代码，应该符合你的要求，这段代码会将A1：C3区域中的数据保留不重复后转置到D列中。Sub HB_chiefzjh()Dim mRng。

#vba 控件字体颜色#vba 窗体多次调用#vba 数据录入窗口#vba 窗体登录界面#vba 输入不重复项