VBA中如何利用動態(tài)數(shù)組去除重復值？方法1dim a（9）為整數(shù)dim b（）為整數(shù)dim I為整數(shù)，j為整數(shù)ReDim preserve b（0）b（0）=a（0）對于I=1到UBound（a）對于

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

方法1

dim a（9）為整數(shù)

dim b（）為整數(shù)

dim I為整數(shù)，j為整數(shù)

ReDim preserve b（0）

b（0）=a（0）

對于I=1到UBound（a）

對于j=0到UBound（b）

如果a（I）=b（j），則轉到網(wǎng)絡，如果相同，跳出

下一步

ReDim preserve B（UBound（B）1）

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

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

下一步

a=B]]方法2，有10個數(shù)字。首先找出最大數(shù)，根據(jù)這個數(shù)定義一個數(shù)組，并將相應的值寫入相應的元素中。最好先設置一個默認值

將a（9）設置為整數(shù)

將I設置為整數(shù)，將temp設置為整數(shù)

將temp=a（0）

將I=1設置為（a）左右

如果a（I）>，則將temp=a（I）

如果結束

下一個I

將B（temp）設置為整數(shù)

將I=0設置為（a）

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

下一個