在一个范围内的最大值的行数

我试图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

您将需要使用Findfunction来查找工作范围内的Workrange 。

码

 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