2016 - 2024

感恩一路有你

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

浏览量:1757 时间:2021-03-11 12:17:53 作者:admin

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程序

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