VBA中如何利用動態(tài)數(shù)組去除重復(fù)值？方法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ù)組去除重復(fù)值？

方法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），則轉(zhuǎn)到網(wǎng)絡(luò)，如果相同，跳出

下一步

ReDim preserve B（UBound（B）1）

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

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

下一步

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

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

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

將temp=a（0）

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

如果a（I）&將temp設(shè)置為（I）

將temp=a（I）

結(jié)束if

下一個I

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

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

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

下一個你是。參見：尺寸I和尺寸D腳本。字典設(shè)置d=新腳本。字典如果IsMissing（MyArray（i））=False，則用d表示i=LBound（MyArray）到UBound（MyArray）。如果Next Removedupesdict=，則item（MyArray（i））=1結(jié)束。鑰匙的結(jié)尾是

既然捐贈者這么堅持，我就出丑了。讓我們從以下想法開始：1。遍歷除第一頁以外的每一頁；2。在工作表中，復(fù)制除第一列以外的內(nèi)容。這個地方不容易處理，因為它需要低效的代碼來確定數(shù)據(jù)區(qū)域的邊界幸運(yùn)的是，excel提供了相應(yīng)的方法。否則，它必須設(shè)置一層循環(huán)。三。返回到第1頁，將內(nèi)容粘貼到第1頁，并返回最后一列的坐標(biāo)。4轉(zhuǎn)到下一頁，復(fù)制除一列以外的內(nèi)容。5回到第1頁，根據(jù)步驟3中返回的坐標(biāo)粘貼內(nèi)容，內(nèi)容按順序粘貼到第1頁。重復(fù)直到結(jié)束。首先處理如何在兩張紙之間復(fù)制粘貼的問題，然后發(fā)送坐標(biāo)）。然后調(diào)用這個函數(shù)來求解。如果代碼有bug，麻煩修改它~~基本流程可以在my office 2013中使用：

]“使用字典重新強(qiáng)調(diào)，下面是示例代碼，刪除第一列中的重復(fù)項子項。Test（）“使用字典刪除重復(fù)項。字典的特點是鍵值不能重復(fù)。Dim DIC，arr Dim I為整數(shù)，r為整數(shù)Dim STR為字符串，r=Sheet1。范圍（“a65536”）。結(jié)束（xlup）。行如果r=1則退出sub“如果第一列中沒有數(shù)據(jù)，則退出程序集DIC=CreateObject（”腳本.dictionary“”“為I=1到R”創(chuàng)建一個dictionary對象，將第一列數(shù)據(jù)添加到dictionary dic（CSTR）的鍵值（cells（I，1） ）=“”下一個arr=Dic.鑰匙“Return the array of dictionary key set DIC=nothing”destroy the object STR=join（arr，“，”）”將數(shù)組內(nèi)容顯示為字符串msgbox strengd sub