
大家好,今日继续和大家分享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