Как мне найти наибольшее значение из диапазона переменных?

Question

Я пытаюсь найти и отобразить самое высокое значение из диапазона переменных в VBA и отображать только самое высокое.

Sub Max_val()
    Dim Sh1 As String
    Dim Var(100) As Integer

    Book2 = ThisWorkbook.Name

    Sh1 = "Sheet1"

    Var(1) = Worksheets(Sh1).Cells(8, 6).Value
    Var(2) = Worksheets(Sh1).Cells(9, 6).Value
    Var(3) = Worksheets(Sh1).Cells(10, 6).Value
    Var(4) = Worksheets(Sh1).Cells(11, 6).Value
    Var(5) = Worksheets(Sh1).Cells(12, 6).Value

    'this is where I am trying to display the highest value'
    Worksheets(Sh1).Cells(28, 4).Value = Var(1)
End Sub

Любая помощь будет принята с благодарностью, большое спасибо.

Answer 1

Используйте Application.Max, чтобы вернуть максимум массива.

Вы также можете массово загрузить массив.Измените массив на Variant и загрузите весь диапазон как единое целое.

Sub Max_val()

    Dim Sh1 As Worksheet
    Dim Var As Variant

    Set Sh1 = ThisWorkbook.Worksheets("Sheet1")

    With Sh1
        Var = .Range(.Cells(8, 6), .Cells(107, 6)).Value
        .Cells(28, 4).Value = Application.Max(Var)
    End With

End Sub