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

我們今天分享的內容是使用vba**實現多條件查詢的功能。

如下圖所示，表名為「明細表」的資料是明細資料。

再如下圖所示，表名為「查詢表」的資料是需要查詢的資料。

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

對於vba來說，處理這樣的問題總是有乙個固定的套路，確定條件關係後，將明細資料迴圈裝入字典，其中明細表的條件作為關鍵字（key），需要查詢的結果作為條目（item），最後遍歷查詢表，根據提取相應的結果。

**如下：

sub dicfind()

dim d as object, arr, brr, i&, j&, k&, s$

set d = createobject("ing.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

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

'd.comparemode =vbtextcompare '不區分字母大小寫

3，留個練手題，使用vba**實現條件求和和計數。

如下圖所示，根據a:b列的資料，計算d列人員的考試次數和考試成績

測試及練習檔案：

Excel vba 日期處理例子

sub s dim wb as workbook dim ws as worksheet set wb activeworkbook dim mydate dim i,j as integer for i 4 to 31 set ws wb.worksheets trim str i mydate ...

利用Excel VBA處理文件

遇到如下格式的一篇word文件，格式混亂，不適合列印 由於沒有接觸過word vba，因此決定用excel vba來處理這篇文件。首先全選該文件的內容，貼上到excel文件中。然後建立乙個新的macro,修改該macro為以下 sub formatsheet formatsheet macro ma...

Excel VBA 將一條記錄分為多條記錄

sub get record on error resume next for i a65536 end xlup row to 1 step 1 msgbox i doevents for y 1 to 255 msgbox y n 0 do while true s string 0 s str...