40纺蛆、[VBA入門(mén)到放棄筆記](méi)字典應(yīng)用:提取唯一值

字典的特性決定了key必須是唯一的。所以可以用字典來(lái)提取唯一值规揪,也就是去除重復(fù)桥氏。


  • 單列去重復(fù)


    源數(shù)據(jù)
Sub 去重復(fù)()
    Dim arr, d As Object, i As Long
    arr = Range("a1:A" & Cells(Rows.Count, 1).End(xlUp).Row)'數(shù)組賦值
    Set d = CreateObject("scripting.dictionary")'創(chuàng)建字典
    For i = 1 To UBound(arr)'遍歷數(shù)組,將數(shù)組元素放進(jìn)字典的key
        d(arr(i, 1)) = ""
    Next
'd.keys是一維數(shù)組,要放到單元格猛铅,必須轉(zhuǎn)置
    [b1].Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub
  • 總之字支,字典里的key是唯一的。


    結(jié)果

  • 多行求唯一值:
源數(shù)據(jù)
Sub 去重復(fù)()
    Dim arr, d As Object, i As Long
    arr = Range("a1:b" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next
    [d1].Resize(d.Count, 1) = Application.Transpose(d.keys)
    [e1].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub
Sub 去重復(fù)1()
    Dim arr, d As Object, i As Long
    arr = Range("a1:b" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
    s = arr(i, 1) & "/" & arr(i, 2)
        d(s) = ""
    Next
End Sub
  • 假如要求是兩列相同的去重復(fù)奸忽,上面代碼都能夠可以堕伪。其中,Sub 去重復(fù)1()是將兩列通過(guò)符號(hào)[ / ]合并在一起栗菜,形成一個(gè)新的key欠雌,后面再用split函數(shù)分列處理(代碼沒(méi)寫(xiě))。
  • 上面兩種方法都可以用exists來(lái)代替疙筹。
Sub 去重復(fù)2()
    Dim arr, d As Object, i As Long, brr()
    arr = Range("a1:b" & Cells(Rows.Count, 1).End(xlUp).Row)'將數(shù)據(jù)放進(jìn)數(shù)組arr
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))'定義數(shù)組brr大小
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        s = arr(i, 1) &  arr(i, 2)'如果是3列的要求就繼續(xù)使用 & 鏈接....
        If Not d.exists(s) Then'如果字典不存在s這個(gè)key
            k = k + 1'計(jì)數(shù)
            d(s) = k'不存在s這個(gè)key就讓它存在
            For j = 1 To UBound(arr, 2)'將數(shù)組arr的值通過(guò)遍歷放到數(shù)組brr
                brr(k, j) = arr(i, j)
            Next
        End If
    Next
    [d1].Resize(k, UBound(brr, 2)) = brr'輸出唯一值
End Sub
  • 用exists的方法富俄,可以直接方便將唯一的數(shù)據(jù)放進(jìn)數(shù)組禁炒,直接輸出。不用轉(zhuǎn)置(效率低)蛙酪,不用管數(shù)據(jù)是要求幾列的唯一值齐苛。

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市桂塞,隨后出現(xiàn)的幾起案子凹蜂,更是在濱河造成了極大的恐慌,老刑警劉巖阁危,帶你破解...
    沈念sama閱讀 217,907評(píng)論 6 506
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件玛痊,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡狂打,警方通過(guò)查閱死者的電腦和手機(jī)擂煞,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,987評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)趴乡,“玉大人对省,你說(shuō)我怎么就攤上這事×滥螅” “怎么了蒿涎?”我有些...
    開(kāi)封第一講書(shū)人閱讀 164,298評(píng)論 0 354
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)惦辛。 經(jīng)常有香客問(wèn)我劳秋,道長(zhǎng),這世上最難降的妖魔是什么胖齐? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,586評(píng)論 1 293
  • 正文 為了忘掉前任玻淑,我火速辦了婚禮,結(jié)果婚禮上呀伙,老公的妹妹穿的比我還像新娘补履。我一直安慰自己,他們只是感情好区匠,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,633評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布干像。 她就那樣靜靜地躺著,像睡著了一般驰弄。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上速客,一...
    開(kāi)封第一講書(shū)人閱讀 51,488評(píng)論 1 302
  • 那天戚篙,我揣著相機(jī)與錄音,去河邊找鬼溺职。 笑死岔擂,一個(gè)胖子當(dāng)著我的面吹牛位喂,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播乱灵,決...
    沈念sama閱讀 40,275評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼塑崖,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來(lái)了痛倚?” 一聲冷哼從身側(cè)響起规婆,我...
    開(kāi)封第一講書(shū)人閱讀 39,176評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎蝉稳,沒(méi)想到半個(gè)月后抒蚜,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,619評(píng)論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡耘戚,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,819評(píng)論 3 336
  • 正文 我和宋清朗相戀三年嗡髓,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片收津。...
    茶點(diǎn)故事閱讀 39,932評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡饿这,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出撞秋,到底是詐尸還是另有隱情长捧,我是刑警寧澤,帶...
    沈念sama閱讀 35,655評(píng)論 5 346
  • 正文 年R本政府宣布部服,位于F島的核電站唆姐,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏廓八。R本人自食惡果不足惜奉芦,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,265評(píng)論 3 329
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望剧蹂。 院中可真熱鬧声功,春花似錦、人聲如沸宠叼。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,871評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)冒冬。三九已至伸蚯,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間简烤,已是汗流浹背剂邮。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 32,994評(píng)論 1 269
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留横侦,地道東北人挥萌。 一個(gè)月前我還...
    沈念sama閱讀 48,095評(píng)論 3 370
  • 正文 我出身青樓绰姻,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親引瀑。 傳聞我的和親對(duì)象是個(gè)殘疾皇子狂芋,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,884評(píng)論 2 354

推薦閱讀更多精彩內(nèi)容