[e1] = "不重複資料"
range("e2").resize(ubound(mys), 1) = mys
set mydic = nothing
end sub
**解析：
1 上述過程實現了從a列資料中提取出只出現一次的資料。將資料裝入陣列myarr，將陣列資料裝入字典mydic，同時為了區分哪個是只出現一次的資料，用了"@"作為重複資料的標識，在從字典中提出資料時，利用陣列函式filter把沒有標識的資料提取出來放在mys中，最後回填資料。
2 '將字典賦值，同時區分是否重複
for i = 1 to ubound(myarr)
if mydic.exists(myarr(i, 1)) then
mydic(myarr(i, 1)) = "@"
else
mydic.add myarr(i, 1), myarr(i, 1)
end if
next
上述預計中實現了字典資料的建立，當不是重複資料時字典的鍵值是鍵，當是多次出現的資料時字典的鍵值是"@".
3 '取得回填資料，並回填
range("e2").resize(ubound(mys), 1) = mys
上述語句中實現了從字典的鍵值中提取不含有"@"的資料，放到陣列mys中，最後回填資料。
在取代office新的辦公軟體沒有到來之前，誰能在資料處理方面做到極致，誰就是王者。其中登峰至極的技能非vba莫屬！學習vba是個過程，如太白詩云：眾鳥高飛盡，孤雲獨去閒。相看兩不厭，只有敬亭山。
「水善利萬物而不爭」，綿綿密密，微則無聲，鉅則洶湧。學習亦如此，知道什麼是自己所需要的，不要蜷縮在一小塊自認為天堂的世界裡，待到暮年時再去做自欺欺人的言論。要努力提高自己，有一顆充滿生機的心靈，把握現在，這才是進取。越是有意義的事情，困難會越多。願力決定始終，智慧型決定成敗。不管遇到什麼，都是風景。看淡紛爭，看輕得失。茶，滿也好，少也好，不要計較；濃也好，淡也好，其中自有值得品的味道。去感悟真實的時間，靜下心，多學習，積累福報。而不是天天混日子，也不是天天熬日子。在後疫情更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。學習時微而無聲，利用時則鉅則洶湧。
vba是利用office實現自己小型辦公自動化的有效手段，我記得20年前自己初學vba時，那時的資料甚少，只能看原始碼自己琢磨,真的很難。20年過去了，為了不讓學習vba的朋友重複我之前的經歷，我根據自己多年vba實際利用經驗，推出了五部vba專門教程。
第一套：vba**解決方案是vba中各個知識點的講解，覆蓋絕大多數的vba知識點，初學必備；
第二套：vba資料庫解決方案資料庫是資料處理的專業利器，教程中詳細介紹了利用ado連線accdb和excel的方法和例項操作。
第三套：vba陣列與字典解決方案陣列和字典是vba的精華，字典是vba**水平提高的有效手段，值得深入的學習。
第五套：vba中類的解讀和利用 這是一部高階教程，講解類的虛無與肉身的度化，可以對促進自己理論的提高。
學習的過程也是修心的過程，修乙個平靜的心。在**的世界中，心平靜了，心情好了，身體自然而然就好。心靜則正，內心裡沒有那麼多邪知邪見，也就沒有那麼多妄想。利人就是利己。我的上述教程是我多的經驗的傳遞，大家可以根據1,3,2,5或者是4,3,2,5的順序逐漸深入的逐漸學習。
最後將一闕詞送給致力於vba學習的朋友：
浮雲掠過，暗語無聲，唯有清風，驚了夢中啼鶯。
望星，疏移北斗，奈將往事雁同行。
阡陌人，昏燈明暗，忍顧長亭。
多少vba人，暗夜中，悄聲尋夢，盼卻天明。
怎無憑！
分享成果，隨喜正能量
VBA 字典與陣列實現去重
在實際操作中有太多的資料需要去重僅保留一條記錄，在這裡自己寫了兩個函式，測試ok，需要可以自己稍微改動就可以使用啦。1.兩個資料來源合併，僅取第一次出現的資料，具體 如下，因為注釋比較詳細，在這裡就不過多的說明，需要注意一點的是，我這裡使用的資料，去重列是第二列，所以我將字典轉換成陣列時，是將陣列的...
VBA 利用字典代替VLOOKUP
sub 代替vlookup 方法一 dim d,ar,br,cr,wb as workbook set d createobject scripting.dictionary br worksheets sheet1 a1 currentregion 需要配置的資料表 ar worksheets r...
他山之石 使用VBA字典 Part1
工作中經常要進行資料集間的主鍵查詢，滿足字典的要求 key列不允許有重複元素 所以，以後可考慮使用字典來實現一些查詢需求，以獲取更快的速度。1 什麼是vba字典？字典 dictionary 是乙個儲存資料的小倉庫。共有兩列。第一列叫key 不允許有重複的元素。第二列是item,每乙個key對應乙個i...