엑셀 VBA 반환 발견 된 행

Question

는 지금은이 있습니다

세포의 특정 범위를 선택하고 currentPerson (사람의 이름이 포함 된 변수)에 대한 발견

 Range("B20:B60000").Select 
     Selection.Find(What:=currentPerson, After:=ActiveCell, LookIn:= _ 
     xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
     xlNext, MatchCase:=False, SearchFormat:=False).Activate 

. 어떻게하면 그의 셀을 참조로 사용하고 그 위의 행을 얻을 수 있도록 만들 수 있습니까?

Answer 1

당신은 코드를 사용할 수 있습니다 :

Dim res As Range 

Set res = Range("B20:B60000").Find(What:=currentPerson, LookIn:= _ 
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
    xlNext, MatchCase:=False, SearchFormat:=False) 

If Not res Is Nothing Then 
    MsgBox "Address: " & res.Address 
    MsgBox "Row: " & res.Row 
    MsgBox "Cell above: " & Cells(res.Row - 1, res.Column).Address 
    MsgBox "Entire row above: " & Cells(res.Row - 1, res.Column).EntireRow.Address 
Else 
    MsgBox "Nothing found" 
End If