插入模塊表
函數mlookup(a表示字符串，b表示範圍，c表示長度)表示字符串
Dim arr()
“Arr = b”將數組定義為查詢的數據源區域。
暗淡我壹樣長
Dim dic作為對象
set DIC = CreateObject(" scripting . dictionary ")
對於i = 1到UBound(arr)
如果arr(i，1) = a，那麽當數組中第壹列的值與搜索目標值相同時，
如果arr(i，1) = a且arr(i，c)& lt；& gt如果查詢的值忽略空值，則需要“Then”語句。
Dic。Add i，arr(i，c)'將查詢需要返回的值添加到字典中的項目。
如果…就會結束
接下來我
Erase arr()'清空數組。
Dim vl()，va作為字符串
' Vl = dic.items '將字典中的所有項轉換為壹個數組。
Set dic = Nothing '清空字典。
對於i = 0到UBound(vl)'將數組中的值分組在壹起。註:下標從0開始。
va = va & amp“，”& ampvl(壹)
接下來我
如果UBound(vl) = -1，則
Mlookup = "None " '不顯示匹配的記錄。
其他
Mlookup = Join(vl，"，")轉換將查詢結果。
擦除vl '空數組。
如果…就會結束
結束功能
使用mlookup()函數，類似於VLOOKUP()，但不需要輸入近似或精確的1，0。
用法=mlookup(a1，b:c，2)無需輸入近似或精確的1，0。