|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
根据统计表里面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
|
|