vba 字典_VBA字典排重Exists

大家好，今日继续和大家分享VBA编程中常用的常用“积木”过程案例,今日分享的是第296期。讲解排重的方案。这些内容是我的经验的记录，来源于我多年的经验。大家在学习VBA的时候，把这些代码块作为一块块的积木对待，平时积累，用时拿来修正、组合。这是一种编程的思路，就是我推出的“积木编程”方案。希望大家加以利用。最近代码多是出自第三套教程”VBA数组与字典解决方案”。

Sub mynzsz_62()

Sheets("62").Select

myarr = Range("a1", Range("a65536").End(xlUp))

Set mydic = CreateObject("Scripting.Dictionary")

For i = 1 To UBound(myarr)

If mydic.exists(myarr(i, 1)) Then

mydic(myarr(i, 1)) = "@"

Else

mydic.Add