求助指导代码修改

jian82372387

根据统计表里面A列的名单找出总表里相应的车牌号，如果查找不到显示"查找不到"
下面是我写的代码报下标越界，帮忙看一下哪里出问题了

Sub 查找()
    Dim arr, d As Object, i%, j%, brr, crr, k
    arr = Sheets("总表").Range("A1").CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 3 To UBound(arr)
        For j = 2 To 3
            If Len(arr(i, j)) Then d(arr(i, j)) = arr(i, 1)
        Next j
    Next i      
      crr = Sheets("统计").Range("A1").CurrentRegion
                For i = 1 To UBound(crr)
                    For Each k In d.keys
                        If k Like "*" & crr(i, 1) & "*" Then crr(i, 2) = d(k)
                    Next k
                    If Len(crr(i, 2)) < 1 Then crr(i, 2) = "查找不到"
                Next i
              Sheets("统计").Range("A1").CurrentRegion = crr

End Sub

jian82372387

有大神帮忙看一下吗？？

准提部林

"诸葛亮123"
姓名混雜其它文字, 這是模糊找查,
例子非實例, 可能會找到不相關的,
扈三//扈三娘...也許同時存在???

liulang0808

楼主的代码可以运行，证明“没有硬伤”。
得不到预期结果，可能是需求逻辑上有出入的
建议楼主结合附件说明下具体需求，