请教一个VBA问题

个位数的样式也就 0~9 十个
for i = 0 to 9
在这些整数的个位数的数组中找 i
找到则样式个数+1

晕这个方法太慢了，换个
Sub contstyle()
Dim a(9) As Integer, b As Range, i%, dd%
For Each b In Range("a1:e5")
a(Right(b, 1)) = 1
Next b
For i = 0 To 9
dd = dd + a(i)
Next i
Debug.Print dd
End Sub

谢谢笛飞。Debug.Print 第一次见，这是把结果弄到哪里�

a(Right(b, 1)) = a(Right(b, 1)) + 1 

这样才对吧？

回j老师 ，在立即窗口 
调试的时候用这个方法挺好�

这果然好多了，再谢�