用以下兩個公式都可以實現多條件查詢，同樣也可以用VBA代碼來實現
函數公式1： '=INDEX(Sheet3!$F$2:$F$20,MATCH(B2&C2&D2&E2,Sheet3!$B$2:$B$20&Sheet3!$C$2:$C$20&Sheet3!$D$2:$D$20&Sheet3!$E$2:$E$20,0))
函數公式2： '=LOOKUP(1,0/(B3&C3&D3&E3=stock!$B$2:$B$20&stock!$C$2:$C$20&stock!$D$2:$D$20&stock!$E$2:$E$20),stock!$F$2:$F$20)
Sub 多條件查詢()
Dim arr, brr, d, s$, i&, t$
Set d = CreateObject("scripting.dictionary") '創建字典
arr = Sheets(2).Range("b2", Sheets(2).[h65536].End(3)).Value '將所要查詢的區域定義到數組arr中
For i = 1 To UBound(arr)
s = Join(Application.Index(Application.Index(arr, i, 0), Array(1, 2, 3, 4)), "|") '將數組arr每行的四個元素通過"|"拼接成為一個字符串
d(s) = arr(i, 6) '數組arr的第6列元素存入字典
Next
brr = Sheets(4).Range("b2", Sheets(4).[h65536].End(3)).Value '當前要查詢的target區域定義到數組brr中
For i = 1 To UBound(brr)
t = Join(Application.Index(Application.Index(brr, i, 0), Array(1, 2, 3, 4)), "|")
If d.exists(t) Then brr(i, 5) = d(t) Else brr(i, 5) = 0
Next
Sheets(4).[b2].Resize(UBound(brr), UBound(brr, 2)) = brr '重新定義數組區域，並將brr重新賦值給它
Set d = Nothing
End Sub
————————————————
版權聲明：本文為CSDN博主「lxljw1314」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/liuxiang860927/java/article/details/10344005