행 번호

Question

나는 범위에서 최대 값을 찾아 그 최대 값은 당신이 Find 기능을 사용해야합니다

Sub MaximumValue() 

Dim MaxVal As Double 
Dim Row As Long 

Set Workrange = Selection 
MaxVal = Application.Max(Workrange) 
Range(MaxVal).Select 
Row = ActiveCell.Row 

MsgBox "MaxValue is in Row" & Row 

End Sub 

Answer 1

을 발생하는 위치 행의 행 번호를 얻기 위해 노력하고 있어요 Workrange에 MaxVal을 찾으십시오. [엑셀에서 최대 값의 위치를 ​​찾습니다]의

코드

Option Explicit 

Sub MaximumValue() 

Dim MaxVal As Double 
Dim Workrange As Range, FndRng As Range 
Dim lRow As Long 

Set Workrange = Selection 
MaxVal = Application.Max(Workrange) 

Set FndRng = Workrange.Find(what:=MaxVal) 
lRow = FndRng.Row 

MsgBox "MaxValue is in Row " & lRow 

End Sub