excel找出重复项并提取 VBA中如何利用动态数组去除重复值？

VBA中如何利用动态数组去除重复值？方法1dim a（9）为整数dim b（）为整数dim I为整数，j为整数ReDim preserve b（0）b（0）=a（0）对于I=1到UBound（a）对于

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）

下一个