Excel·VBA自定義函數(shù)擴(kuò)展VLOOKUP

VLOOKUP函數(shù)功能是按列查找藐守、最終返回該列所需查詢所對(duì)應(yīng)的值挪丢,是Excel中廣泛應(yīng)用的查找、核對(duì)的函數(shù)卢厂。但局限性在于乾蓬,只能返回匹配到第1個(gè)值,如果需要返回指定第N個(gè)值慎恒,就需要編寫自定義函數(shù)進(jìn)行擴(kuò)展

Function VLOOKUP_INDEX(lookup_value As String, table_array As Range, Optional col_index As Integer = 2, Optional index As Integer = 1) As String
    '函數(shù)定義VLOOKUP_INDEX(要查找的值任内,查找區(qū)域,匹配值所在列數(shù)融柬,需要返回第幾個(gè)匹配的值)返回與要查找的值匹配的結(jié)果
    Dim i As Long, find_cell As Range, cell_address As String
    With table_array.Columns(1)
        '如果區(qū)域第1個(gè)單元格等于查找的值死嗦,則將該單元格賦值cell;否則使用find查找粒氧,將單元格賦值cell
        If .Cells(1) = lookup_value Then  'range.find方法不是從第1個(gè)開始查找
            Set find_cell = .Cells(1)
        Else
            '按值查找xlValues越除,完全匹配xlWhole
            Set find_cell = .Find(lookup_value, LookIn:=xlValues, lookat:=xlWhole)
        End If
        If Not find_cell Is Nothing Then  '未發(fā)現(xiàn)匹配項(xiàng)時(shí),find方法返回 Nothing
            cell_address = find_cell.Address  '記錄單元格地址
            Do
                i = i + 1
                If i = index Then  '如果是需要返回的index外盯,則返回對(duì)應(yīng)的匹配值
                    VLOOKUP_INDEX = find_cell.Offset(0, col_index - 1)
                    Exit Function
                Else
                    Set find_cell = .Find(lookup_value, find_cell, LookIn:=xlValues, lookat:=xlWhole)  '查找下一個(gè)
                End If
            Loop While Not find_cell Is Nothing And find_cell.Address <> cell_address
        Else
            VLOOKUP_INDEX = ""  '如果找不到則返回空值
        End If
    End With
    
End Function

Sub VLOOKUP_INDEX幫助信息()
    '運(yùn)行一次后該幫助信息生效
    Dim 函數(shù)名稱 As String        '函數(shù)名稱
    Dim 函數(shù)描述 As String        '函數(shù)描述
    Dim 參數(shù)個(gè)數(shù)(4) As String     '函數(shù)參數(shù)描述 數(shù)組 個(gè)數(shù)
    
    函數(shù)名稱 = "VLOOKUP_INDEX"
    函數(shù)描述 = "擴(kuò)展VLOOKUP摘盆,可以指定返回第幾個(gè)匹配的值,完全匹配"
    參數(shù)個(gè)數(shù)(0) = "要查找的值饱苟,單元格骡澈、文本字符串"
    參數(shù)個(gè)數(shù)(1) = "查找區(qū)域,同VLOOKUP掷空,第1列包含要查找的值"
    參數(shù)個(gè)數(shù)(2) = "匹配值所在列數(shù)肋殴,同VLOOKUP,數(shù)字"
    參數(shù)個(gè)數(shù)(3) = "需要返回第幾個(gè)匹配的值坦弟,數(shù)字"
    
    Call Application.MacroOptions(macro:=函數(shù)名稱, Description:=函數(shù)描述, ArgumentDescriptions:=參數(shù)個(gè)數(shù))
    
End Sub
舉例:

G2處查找第2個(gè)符合條件的值护锤,公式 =VLOOKUP_INDEX(F1,A1:B9,2,2)

VLOOKUP_INDEX
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市酿傍,隨后出現(xiàn)的幾起案子烙懦,更是在濱河造成了極大的恐慌,老刑警劉巖赤炒,帶你破解...
    沈念sama閱讀 218,525評(píng)論 6 507
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件氯析,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡莺褒,警方通過查閱死者的電腦和手機(jī)掩缓,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,203評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來遵岩,“玉大人你辣,你說我怎么就攤上這事巡通。” “怎么了舍哄?”我有些...
    開封第一講書人閱讀 164,862評(píng)論 0 354
  • 文/不壞的土叔 我叫張陵宴凉,是天一觀的道長(zhǎng)。 經(jīng)常有香客問我表悬,道長(zhǎng)弥锄,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,728評(píng)論 1 294
  • 正文 為了忘掉前任蟆沫,我火速辦了婚禮籽暇,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘饥追。我一直安慰自己图仓,他們只是感情好罐盔,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,743評(píng)論 6 392
  • 文/花漫 我一把揭開白布但绕。 她就那樣靜靜地躺著,像睡著了一般惶看。 火紅的嫁衣襯著肌膚如雪捏顺。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,590評(píng)論 1 305
  • 那天纬黎,我揣著相機(jī)與錄音幅骄,去河邊找鬼。 笑死本今,一個(gè)胖子當(dāng)著我的面吹牛拆座,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播冠息,決...
    沈念sama閱讀 40,330評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼挪凑,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來了逛艰?” 一聲冷哼從身側(cè)響起躏碳,我...
    開封第一講書人閱讀 39,244評(píng)論 0 276
  • 序言:老撾萬榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎散怖,沒想到半個(gè)月后菇绵,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,693評(píng)論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡镇眷,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,885評(píng)論 3 336
  • 正文 我和宋清朗相戀三年咬最,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片欠动。...
    茶點(diǎn)故事閱讀 40,001評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡丹诀,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情铆遭,我是刑警寧澤硝桩,帶...
    沈念sama閱讀 35,723評(píng)論 5 346
  • 正文 年R本政府宣布,位于F島的核電站枚荣,受9級(jí)特大地震影響碗脊,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜橄妆,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,343評(píng)論 3 330
  • 文/蒙蒙 一衙伶、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧害碾,春花似錦矢劲、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,919評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至阁猜,卻和暖如春丸逸,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背剃袍。 一陣腳步聲響...
    開封第一講書人閱讀 33,042評(píng)論 1 270
  • 我被黑心中介騙來泰國打工黄刚, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人民效。 一個(gè)月前我還...
    沈念sama閱讀 48,191評(píng)論 3 370
  • 正文 我出身青樓憔维,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國和親畏邢。 傳聞我的和親對(duì)象是個(gè)殘疾皇子业扒,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,955評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容