vba循环给数组赋值 Excel VBA如何删除数组中重复的值？

Excel VBA如何删除数组中重复的值？

使用集合的唯一性键删除重复值sub a（）dim a（1到100）dim b as new collection dim I as integer a（1）=1 a（2）=3 a（3）=5 a（4）=7 a（5）=3 a（6）=5 a（7）=2 on error resume next for I=1 to 100 b.为I=1 to b添加a（I），str（a（I））next I。计数a（I）=b（I）next iend sub

使用删除重复值的集合的键唯一性suba（）Dima（1to100）dimbas newcollection dimias Integera（1）=1a（2）=3A（3）=5A（4）=7a（5）=3A（6）=5A（7）=2oneresumenextfori=1to100b.ADDA（I），str（a（I））nextifori=1托布伯爵（i） =B（i）nextiensub

方法1

将a（9）作为整数

将B（）作为整数

将i作为整数，将j作为整数

重新定义保留B（0）

B（0）=a（0）

将i=1绑定到U（a）

将j=0绑定到U（B）

如果a（i）=B（j），则转到网络，跳出如果你有相同的

下一步

ReDim preserve B（UBound（B）1）

B（UBound（B））=a（I）

net:跳转到这里，匹配下一个数据

下一步

a=B]]方法2，有10个数字。首先找出最大数，根据这个数定义一个数组，并将相应的值写入相应的元素中。最好先设置一个默认值

将a（9）设置为整数

将I设置为整数，将temp设置为整数

将temp=a（0）

将I=1设置为（a）左右

如果a（I）>，则将temp=a（I）

如果结束

下一个I

将B（temp）设置为整数

将I=0设置为（a）

B（a（I））=a（I）

下一个

vba循环给数组赋值 vba数组删除某个元素 vba数组去除重复数据

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。