vba遍歷陣列 VBA如何處理多條件查詢？

我看見那美麗月亮……也看見你多情眼光……它讓我幻想……讓我想去飛翔……忘記憂傷……

嗯，我們今天分享的內容是使用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 '不區分字母大小寫

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

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

更多資源和教程

vba愛好者請進，vba**寶概述

《vba經典**應用大全》噹噹、天貓、京東均有銷售~

vba遍歷陣列 VBA如何處理多條件查詢？

如何宣告陣列 VBA陣列如何定義，又該如何建立呢？

JS中如何遍歷陣列以及物件

多層陣列如何遍歷陣列物件的深拷貝

vba遍歷陣列 VBA如何處理多條件查詢？

如何宣告陣列 VBA陣列如何定義，又該如何建立呢？

JS中如何遍歷陣列以及物件

多層陣列如何遍歷 陣列 物件的深拷貝

相關推薦

多層陣列如何遍歷陣列物件的深拷貝