取壹個不重復的值:
Sub？字典比較提取非重復值()
設置？dic？=?CreateObject(" scripting . dictionary ")
為了什麽？我？=?2?去哪？[a300]。結束(3)。排
dic(細胞(I，1).值)？=?""
下壹個？我
為了什麽？我？=?2?去哪？[b300]。結束(3)。排
dic。移除？(細胞(我，2).值)
下壹個？我
範圍(" c2:c "？& amp？[c1]。結束(xlDown)。排)。清除內容
如果？【a1】。結束(xlDown)。劃？=?[b1]。結束(xlDown)。劃？然後
MsgBox？“這兩列完全相等嗎？!"？& amp？Chr(10)？& amp？“沒有進壹步的比較嗎？節目就要開播了！”
其他
[c2]。調整大小(dic。數數，？1)?=?申請。移調(dic.keys)
結束？如果
結束？Sub采用重復值。
Sub？測試()
暗淡？r%，？我%
暗淡？啊？壓力感受器反射反應
暗淡？d？作為？目標
設置？d？=?CreateObject(" scripting . dictionary ")
用什麽？工作表(“sheet1”)
arr？=?。範圍(" a1 ")。當前區域
雷迪姆？brr(1？去哪？UBound(arr)，？1?去哪？50)
為了什麽？我？=?1?去哪？欠奉
d.全部刪除
為了什麽？j？=?1?去哪？UBound(arr，2)
d(arr(i，j))？=?d(arr(i，j))？+?1
然後
m？=?0
為了什麽？每個？aa？在？鑰匙
如果？d(aa)？& gt？1?然後
m？=?m？+?1
brr(我，？m)？=?嗜酒者互誡協會
結束？如果
然後
然後
。範圍(" k1 ")。調整大小(UBound(brr)，？UBound(brr，2))?=?壓力感受器反射反應
結束？隨著
結束？潛水艇