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

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

方法1

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

dim b（）為整數(shù)

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

ReDim preserve b（0）

b（0）=a（0）

對(duì)于I=1到UBound（a）

對(duì)于j=0到UBound（b）

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

下一步

ReDim preserve B（UBound（B）1）

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

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

下一步

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

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

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

將temp=a（0）

將I=1設(shè)置為（a）左右

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

如果結(jié)束

下一個(gè)I

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

將I=0設(shè)置為（a）

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

下一個(gè)