excel - 如何编写代码来显示最高需求（第 5 列）的月份（第 1 列）？

Question

我正在尝试解决一个问题，该问题要求在哪个月份找到最高需求。需求是 E 列，月份是 A 列。这是我目前的代码。

Sub MaxDemandMonth()
    Dim wsData As Worksheet
    Dim Rng As Range
    Dim MaxVal As Long

    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 "Max Demand was Found in Month" & mDRow

End Sub

标签： excelvba