VBA中，使用數(shù)組和字典實現(xiàn)三列的數(shù)據(jù)的快速復(fù)制~？“使用字典刪除重復(fù)項，下面是示例代碼，刪除第一列中的重復(fù)項sub test（）”。使用dictionary刪除重復(fù)項，dictionary的特點是鍵

VBA中，使用數(shù)組和字典實現(xiàn)三列的數(shù)據(jù)的快速復(fù)制~？

“使用字典刪除重復(fù)項，下面是示例代碼，刪除第一列中的重復(fù)項sub test（）”。使用dictionary刪除重復(fù)項，dictionary的特點是鍵值不能重復(fù)dim DIC，arr dim I為integer，r為integer dim STR為string，r=Sheet1。范圍（“a65536”）。結(jié)束（xlup）。行如果r=1則退出sub“如果第一列中沒有數(shù)據(jù)，則退出程序集DIC=CreateObject（”腳本.dictionary“）”create dictionary object for I=1 to R”將第一列數(shù)據(jù)添加到dictionary dic的鍵值（CSTR（cells（I，1））=“”next arr=Dic.鑰匙返回字典數(shù)組key，set DIC=nothing“銷毀對象STR=join（arr，”，“）”將數(shù)組的內(nèi)容顯示為字符串。表兄msgbox strengd sub有三種方法

簡要說明如下：

方法一：借助數(shù)據(jù)透視表。如果內(nèi)存容量足夠，這是最方便、快捷、準(zhǔn)確的方法。

方法2：通過刪除重復(fù)項，您看到的就是您得到的。將需要重新計算的數(shù)據(jù)表粘貼到空白空間中，刪除重復(fù)項（菜單欄-數(shù)據(jù)表-刪除重復(fù)項）。剩下的數(shù)字是重復(fù)項的數(shù)量。

方法三：使用countifs函數(shù)倒數(shù)和，輸入公式后注意鍵盤使用。

有關(guān)詳細(xì)信息，請參閱我堂兄的文章：“如何準(zhǔn)確快速地計算數(shù)據(jù)表中重復(fù)項的數(shù)量-Excel的三個簡單方法”（11月4日發(fā)布）

如何準(zhǔn)確又快速計算數(shù)據(jù)表去重復(fù)項的個數(shù)？

JS jQuery刪除數(shù)組中的重復(fù)元素

]第一：$。唯一（）

秒：

對于（VaR I=0，len=totalarray）線路長度

{

!RegExp（totalArray line[i]，“g”）.test（resultArrayu線路連接（“，”）和（結(jié)果數(shù)組）線。推（總陣列線[i]）

}