「Excel VBA」用字典處理多條件查詢問題

現在我們需要根據查詢表的姓名和課目兩個條件，在明細表中查詢相關的成績。

對於VBA來說，處理這樣的問題總是有一個固定的套路，確定條件關係後，將明細數據循環裝入字典，其中明細表的條件作為關鍵字（Key），需要查詢的結果作為條目（Item），最後遍歷查詢表，根據提取相應的結果。

代碼如下：

Sub DicFind()

Dim d As Object, arr, brr, i&, j&, k&, s$

Set d = CreateObject("scripting.dictionary")

'後期引用字典

'd.CompareMode = vbTextCompare

'不區分字母大小寫

arr = Sheets("明細表").[a1].CurrentRegion

'明細數據裝入數組arr

For i = 2 To UBound(arr)

'遍歷數組arr，將數據裝入字典，以備查詢

'標題行不要，從第二行開始遍歷

For j = 2 To UBound(arr, 2)

'標題列不要，從第二列開始遍歷

s = arr(i, 1) & "@" & arr(1, j)

'姓名@課目是查詢條件，作為字典的key值

d(s) = arr(i, j)

'成績是查詢的結果，作為字典的item

Next

Next

brr = Sheets("查詢表").[a1].CurrentRegion

'查詢區域的數據裝入數組brr

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

Sheets("查詢表").[a1].CurrentRegion = brr

'將數組brr放回查詢區域

MsgBox "查詢OK"

Set d = Nothing

'釋放字典內存

End Sub

小貼士：

1，對於字典查詢法來說，其實大部分情況下，並不存在多條件查詢的問題，把多個條件合併成一個條件表達式，那就是單條件查詢。

2，需要注意的是，該段代碼區分字母大小寫，也就是說“VBA”並不等同於“vba”，如果需要不區分字母大小寫，取消代碼中以下語句的註釋。

'd.CompareMode =vbTextCompare '不區分字母大小寫

3，留個練手題，使用VBA代碼實現條件求和和計數。

如下圖所示，根據A:B列的數據，計算D列人員的考試次數和考試成績

---

分享到:

---

閱讀更多 學點EXCEL不加班 的文章

關鍵字: 查詢 Excel 字典

---