Найти максимальное количество групп клеток

Question

Как я могу получить максимальное значение этих групп в коде VBA вместо функции, как на рисунке ниже?

Вот что я попробовал:

With Application.WorksheetFunction
    c = 2
    r = 3
    lRow = Range("B1").End(xlDown).Row
For k = 1 To .Max(Range(Cells(2, 1), Cells(lRow, 1)))
    f = r
    g = 6
    Max = 0

Answer 1

Вы можете попробовать эти простые коды VBA, чтобы найти самое высокое значение.

Sub FindMax()

Dim XLastRow As Long
XLastRow = Range("E" & Rows.Count).End(xlUp).Row
Range("E" & lLastRow + 1).Formula = "=Max(E1:E" & lLastRow & ")"

End Sub

Или вы можете попробовать это тоже.

Sheets("Sheet1").Range("I12").Value = Application.worksheetfunction.Max(Range("E:E"))

или же

Sheets("Sheet1").Range("I12").Value = Application.worksheetfunction.Max(Range("E1:E4"))

Я надеюсь, что это поможет вам.