VBA中如何利用動態(tài)數(shù)組去除重復值？方法1dim a(9) as integrdim b() as integerdim i as integer，j as integerredim preserve

VBA中如何利用動態(tài)數(shù)組去除重復值？

方法1

dim a(9) as integr

dim b() as integer

dim i as integer，j as integer

redim preserve b(0)

b(0)=a(0)

for i= 1 to ubound (a)

for j= 0 to ubound(b)

if a(i) = b(j) then goto net ，有相同的就跳出

next

redim preserve b(ubound(b) 1)

b(ubound(b))=a(i)

net: ，跳到這里，匹配下一個數(shù)據(jù)

next

a = b

方法2，有10個數(shù)，先找出最大的數(shù)，按照這個數(shù)定義一個數(shù)組，把對應的值寫入對應的元素中，最好先設置一個默認值

dim a(9) as integer

dim i as integer，temp as integer

temp=a(0)

for i= 1 to ubound(a)

if a(i) > temp then

temp = a(i)

end if

next i

redim b(temp) as integer

for i= 0 to ubound(a)

b(a(i)) = a(i)

next