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

我正在寻找一个VBA代码来查找列中数组中的最后一个值。 使用函数LOOKUP(C1; A:B)也是可行的,但是我想用VBA来完成。 我已经尝试过使用函数:x = Application.Worksheetfunction.Lookup(Range(“C1”),Range(“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 – > 55。

在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 

用你的例子,我想你想:

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