使用VBA中的“查找”功能查找活动单元上方的第一个值？

Question

I am trying to get the row number of the result of a find function, I am using the following.

Set FindRow = ThisWorkbook.Sheets("Schedule").Range(ActiveCell.Address & ":n" & Sheets("Schedule").Cells(ActiveSheet.Rows.Count, 1).End(XlUP).Row).Find(What:="Assembly", SearchDirection:=xlPrevious, MatchCase:=False)

Msgbox (FindRow.Row)

This works fine but returns the last cell in the range that has the value in it. If I alter the Search Direction to XlNext, this returns the next cell below with the value in it. I would like it to search above the active cell for the next value.

Answer 1

Think you just need to specify the After parameter. Edit - on reflection depending on active cell the range you are searching could be any size so you need to explain what you mean by "above the active cell".

Sub x()

Dim FindRow As Range, r As Range

With ThisWorkbook.Sheets("Schedule")
    Set r = .Range(ActiveCell.Address & ":N" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    Set FindRow = r.Find(What:="Assembly", after:=r(r.Cells.Count), SearchDirection:=xlNext, MatchCase:=False)
End With

If Not FindRow Is Nothing Then MsgBox (FindRow.Row)

End Sub