心胸開闊一點，不去爭；得失看輕一點，不去爭；功利心淡一點，不去爭。一杯茶，滿也好，少也好，不要浪費時間去爭；濃也好，淡也好，其中自有值得品的味道。人生有順境也有逆境，不可能處處是逆境；人生有巔峰也有谷底，不可能處處是谷底。逆境時多學習，積累的就是福報，谷底時多學習，積累的就是財富。走的路越遠，心就會越寬；遇見的人越多，就會發現世界就越大。保持健康快樂的心態，堅定且執著，路和夢想就在腳下。有時間要學會去學習有用的知識，經營自己，而不是天天混日子，也不是天天熬日子，學習的過程能讓您一生舒坦，快活似神仙。不管現實有多殘忍，我們都要固執地相信，只要頑強的前行，一切陰霾都會吹散在風中。靜下心，多學習有用的知識，為后疫情時代做知識的儲備。后疫情時代將會是一個全新的世界，很多理念都將被打破，我們每個人，要盡可能多的學習有用的知識，為自己充電。在今后更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。為后疫情時代做的必要準備。

什么是存量殘殺？簡單而言，在取代OFFICE新的辦公軟件沒有到來之前，誰能把應用做到最為先進，誰就是王者。其中登峰至極的技能非VBA莫屬！

今日繼續和大家分享VBA編程中常用的常用"積木"過程代碼。這些內容大多是我的經驗的記錄，來源于我多年的經驗。最近代碼多是出自"VBA數組與字典解決方案"教程，有一些朋友反映分享的內容不能很好的理解，可以參考這套資料的內容進行研讀。今日分享的是第268期。

VBA過程代碼268：利用字典來判斷數組的值是否重復，并提取出不重復的值

Sub MyNZ ()

Dim brr() '聲明一個數組brr放結果

Sheets("44").Select

Set mydic = CreateObject("scripting.dictionary")

'不區分字母大小寫比較

mydic.CompareMode = vbTextCompare

'數據源裝入數組myarr

myarr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).row)

ReDim brr(1 To UBound(myarr), 1 To 1)

'標題行不要，開始遍歷數組

For i = 2 To UBound(myarr)

'將數據轉換成字符串類型，因為字典關鍵字認為數值和文本型數值是不相等的

s = myarr(i, 1)

If Not mydic.exists(s) Then

'如果字典中不存在s，則作為關鍵字裝入字典,個數累加,結果裝入結果數組

mydic(s) = ""

k = k + 1

brr(k, 1) = myarr(i, 1)

End If

Next

[E:E].ClearContents

[E1] = "排重結果"

With [E2].Resize(k, 1)

'設置文本格式，防止某些文本數值變形

.NumberFormat = "@"

.Value = brr

End With

MsgBox "一共有：" & k & "個不重復值。"

'釋放字典內存

Set mydic = Nothing

End Sub

代碼講解： 上述代碼實現了對一個數組的排重處理，過程和要求的完全一致，大家要注意，實現一個目的有很多的方法，有的會簡單些，有的會復雜些，我會盡可能的多利用些方法來實現目的，讓大家在學習的過程中能有所比較，無論是哪一種方法，讀者要充分的理解，如果實在理解不了可以記住代碼為自己所用也可。

VBA是利用Office實現自己小型辦公自動化的有效手段.我根據自己20多年的VBA實際利用經驗，現在推出了四部VBA經驗學習資料，也是我"積木編程"思想的具體體現。

一：VBA代碼解決方案，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點；

二：VBA數據庫解決方案，是數據處理的專業利器，介紹利用ADO連接ACCDB,EXCEL。

三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。

四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。

目前正在寫第五部教程：VBA中類的解讀和利用，希望在年內能陸續在各個平臺和大家見面，前些時在平臺上發表了一事件響應的視頻錄屏，反響還是不錯的，這個視頻就是類的應用經典。

利用VBA進行數據統計真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己輕松，高效，快樂的工作。學習有用的知識，讓健康的知識服務于大眾，不勞而獲，偷奸取巧，是不能獲得有用的知識的，只有踏踏實實，沉下心，點滴起步，為后疫情時代做好知識的儲備。我的目的是授人以漁，給大家提供我現成的經驗，你可以借鑒到現成的經驗，不偷著樂還更待何時？

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的python 判断字典key是否存在_神奇的VBA字典，判断数据是否重复的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。