Question

我正在寻找一个vba代码来查找列中数组的最后一个值。函数LOOKUP（C1; A：B）也可以，但我想用VBA做。我已经尝试过使用这个功能： x = Application.Worksheetfunction.Lookup（范围（“C1”），范围（“A：B”））但它没有用。数据看起来像这样：

A：B
1:10
1:12
2:20
2:25
2:30
3:35
3:40
4:45
4:50
4:55

因此对于1，它必须返回12，对于2 - > 30，对于3 - > 40和4 - ＆gt; 55。

Answer 1

在OP的进一步请求之后

编辑

我想你可能会在此之后：

With Range("C1")
    If IsError(Application.Match(.Value, Range("A:A"), 0)) Then
        MsgBox "Sorry, no match for " & .Value & " in column A"
    Else
        Range("H7").Value = Application.VLookup(.Value, Range("A:B"), 2)
    End If
End With

Answer 2

使用你的例子，我想你想要：

Application.Worksheetfunction.VLookup(Range("C1"), Range("A:B"),2)

在数组中查找最后一个单元格值

2 个答案: