excel - VBA返回包含最大值的错误单元格

Question

所以我试图在整个 E 列中找到最大值。下面的代码返回一个行号，但它不是包含最大值的行。有点不知所措在这里要解决什么。我能够通过使用 Index & Match 让它工作，但希望它以这种方式工作。我的电子表格在这里：

Sub MonthHighestDemand()
    Dim wsData As Worksheet
    Dim rng As Range
    Dim MaxVal As Long
    ' Long rounds, double leaves it alone

    Set wsData = Worksheets("DATA")
    Set rng = Range("E:E")

    MaxVal = WorksheetFunction.Max(rng)
    Set MaxCell = rng.Find(what:=MaxVal, LookIn:=xlValues)
    mDRow = MaxCell.Row

    MsgBox mDRow
End Sub

标签： excelvba