vb数组从小到大排序 VBA中如何利用动态数组去除重复值？

VBA中如何利用动态数组去除重复值？

方法1

dim a（9）为整数

dim b（）为整数

dim I为整数，j为整数

ReDim preserve b（0）

b（0）=a（0）

对于I=1到UBound（a）

对于j=0到UBound（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）

下一个

vb数组从小到大排序 vba数组去除重复数据 删除重复字符的vb程序

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