【Excel VBA】用字典处理多条件查...

【Excel VBA】用字典处理多条件查询问题，对于字典查询法来说，其实大部分情况下，并不存在多条件查询的问题，把多个条件合并成一个条件表达式，那就是单条件查询。一起看看代码吧！

Sub DFind()
Dim d As Object, arr, brr, i&, j&, k&, s$
Set d = CreateObject('scripting.dictionary')
arr = Sheet3.[a1].CurrentRegion
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
s = arr(i, 1) & '@' & arr(1, j)
d(s) = arr(i, j)
Next
Next
brr = Sheet3.[F1].CurrentRegion
For i = 2 To UBound(brr)
s = brr(i, 1) & '@' & brr(i, 2)
'合并查询的两个条件成为一个条件字符串
For j = 3 To UBound(brr, 2)
If d.exists(s) Then
'如果字典中存在变量s
brr(i, j) = d(s)
'从字典中取s对应的条目
Else
brr(i, j) = ''

End If
Next
Next
Sheet3.[F1].CurrentRegion = brr
Set d = Nothing
End Sub
我是Excel教案，关注我持续分享更多的Excel技巧！