用vba编写VLOOKUP函数

我试图在我的vba代码中使用VLOOKUP函数查找表格数组中电子表格的值。 我不知道如何正确书写。

以下是所有参考的正常VLOOKUP公式：

=VLOOKUP(DATA!AN2,DATA!AA9:AF20,5,FALSE) 

Answer 1

你有没有尝试过：

 Dim result As String Dim sheet As Worksheet Set sheet = ActiveWorkbook.Sheets("Data") result = Application.WorksheetFunction.VLookup(sheet.Range("AN2"), sheet.Range("AA9:AF20"), 5, False) 

Answer 2

如何使用：

 result = [VLOOKUP(DATA!AN2, DATA!AA9:AF20, 5, FALSE)] 

注意[和] 。

Answer 3

请为Vlookupfind下面的代码：

 Function vlookupVBA(lookupValue, rangeString, colOffset) vlookupVBA = "#N/A" On Error Resume Next Dim table_lookup As range Set table_lookup = range(rangeString) vlookupVBA = Application.WorksheetFunction.vlookup(lookupValue, table_lookup, colOffset, False) End Function 

Answer 4

  Public Function VLOOKUP1(ByVal lookup_value As String, ByVal table_array As Range, ByVal col_index_num As Integer) As String Dim i As Long For i = 1 To table_array.Rows.Count If lookup_value = table_array.Cells(table_array.Row + i - 1, 1) Then VLOOKUP1 = table_array.Cells(table_array.Row + i - 1, col_index_num) Exit For End If Next i End Function 

Answer 5

 Dim found As Integer found = 0 Dim vTest As Variant vTest = Application.VLookup(TextBox1.Value, _ Worksheets("Sheet3").Range("A2:A55"), 1, False) If IsError(vTest) Then found = 0 MsgBox ("Type Mismatch") TextBox1.SetFocus Cancel = True Exit Sub Else TextBox2.Value = Application.VLookup(TextBox1.Value, _ Worksheets("Sheet3").Range("A2:B55"), 2, False) found = 1 End If