|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
以下代码是在论坛里看的一个贴子,觉的很实用,但代码的意思及作用不是很清楚,想请教一下
Dim arr, brr(), d As Object, i&, s$
Set d = CreateObject("scripting.dictionary")
arr = Sheets("匹配数据表").Range("A1").CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
arr = Range("A1").CurrentRegion
ReDim brr(2 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
s = arr(i, 2) & arr(i, 3) & arr(i, 4)
If d.Exists(s) Then
brr(i, 1) = d(s)
Else
brr(i, 1) = "#N/A"
End If
Next
Range("E2").Resize(i - 2) = brr
|
|