在vba中以数组形式使用表（索引，匹配，vlookup函数）

Question

Trying to create function in vba to perform a index match function. I am referencing a excel table, and I want to reference the headers, not column number. Below is the worksheet that I have created and works.

=VLOOKUP(C4, Table2, MATCH(C5,Table2[#Headers],0), 0)

When I put this function into VBA, I am having trouble making the array work. I think...

MATCH(C5,Table2[#Headers],0)

needs to start with codes like this below.

ActiveSheet.ListObjects("Table2").ListColumns ("d") 
ActiveSheet.ListObject("Table2[d]")

Answer 1

You can refer to a ListColumn by its header, and then use its Index property.

If your lookup value is in C4 and the column name is in C5 , then try something like this:

Sub Test()

    With Sheet1
        Dim myTbl As ListObject
        Set myTbl = .ListObjects("Table2")

        Dim indx As Integer
        indx = myTbl.ListColumns(.Range("C5").Value).Index

        Dim result As Variant
        result = Application.VLookup(.Range("C4").Value, myTbl.Range, indx, 0)

        MsgBox result
    End With

End Sub

Sample table and data: