重复值标注颜色下标越界

michaelaa

老师帮忙看一下代码，当单元格多的时候，会下标越界，怎么修改代码，谢谢！
Sub test()
    Dim arr, i%, d, j%, n%
    Set d = CreateObject("scripting.dictionary")
    Range("A:A").Interior.ColorIndex = xlNone
    i = Range("A1048576").End(3).Row
    arr = Range("A1:A" & i)
    n = 1
    For j = 1 To UBound(arr)
        If Not d.exists(arr(j, 1)) Then
            n = n + 1
            d(arr(j, 1)) = Array(1, n)
        Else
            d(arr(j, 1)) = Array(d(arr(j, 1))(0) + 1, d(arr(j, 1))(1))
        End If
    Next
    For j = 1 To UBound(arr)
        If d(arr(j, 1))(0) > 1 Then
            Range("A" & j).Interior.ColorIndex = d(arr(j, 1))(1)
        End If
    Next
End Sub

jiminyanyan

没附件，没法测试。。。。

taller

重复值标注使用条件格式最方便，不需要代码

kimmyyang

会不会是声明字段类型错误。

michaelaa

taller 发表于 2019-3-26 16:40
重复值标注使用条件格式最方便，不需要代码

我想标注各种不同颜色，做得到吗？

autolzg

Dim arr, i%, d, j%, n% 这行你改成这样试试

Dim arr, i&, d&, j&, n&

ikillwy

.ColorIndex改成color