在工作表窗口中按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？=?"不適用"
結束？如果
結束？函數給了妳壹個例子。