关于.find如何查找最后一个满足条件的单元格

yiyigzj

问题如图：如何修改代码，使得F2单元格返回的值是8，而不是2？  即返回最后一个满足条件的单元格对应值，谢谢解答


代码：
Private Sub CommandButton1_Click()
Sheets("sheet1").Range("F2").ClearContents
With Sheets("sheet1").Range("A:A")
    Set a_range = .Find("1004", LookIn:=xlValues)
End With
Sheets("sheet1").Range("F2").Value = a_range.Offset(0, 1).Value


End Sub

兰色幻想

Set a_range = .Find("1004", LookIn:=xlValues,SearchDirection:=xlPrevious)

Zipall

刚才试了一句,死活不过.后来才发现漏了个s

Set a_range = .Find(1004, , xlValue, , , xlPrevious)

应为

Set a_range = .Find(1004, , xlValues, , , xlPrevious)

yiyigzj

thankyou  谢谢各位解答  问题解决