在工作表窗口中按ALT+F11,彈出VBA編輯窗口,然後在彈出窗口左側的列表欄中單擊鼠標右鍵選擇插入模塊,將下面的代碼粘貼到右側的編輯窗口中:
自定義函數的使用方式與內置函數相同。
這個自定義函數的名稱:mylookup
用法:
Mylookup(條件1,條件2,數據區域,返回哪壹列數據)
註意:條件1是完全匹配,條件2是包含。數據區引用vlookup的數據區規則,返回的列所在的數據也引用vlookup用法。)
代碼如下:
功能?mylookup(T1,T2?Rng,?col)
暗淡?(油)密度指示控制器(Density Indicating Controller的縮寫)
arr?=?Rng。價值
設置?dic?=?CreateObject("腳本。字典》)
為了什麽?我?=?1?去哪?欠奉
dic(arr(i,1))?=?我
然後
為了什麽?每個?d?在?dic.keys
答?=?駕駛員信息中心(T1)
如果?T1?=?d?然後呢。T2?比如?"*"?& amp?arr(dic(d),?2)?& amp?"*"?然後呢?aaa?=?arr(dic(d),?col)
然後
如果?aaa?& lt& gt?""?然後
我的lookup?=?美國汽車協會
其他
我的lookup?=?"不適用"
結束?如果
結束?函數給了妳壹個例子。