Поиск минимума и максимума в диапазоне в столбце Vba

Я пытался найти минимальное и максимальное значение столбца и не могу заставить мой код работать правильно. Я пробовал операторы if, циклы for и не могу заставить его работать. Я также использовал application.worksheetfunction.min/max и ничего не смог заставить работать.

Sub MinMax()
    Dim xmax As Double
    Dim xmin As Double
    Dim TableRow As Integer

    For i = 2 To lastrow   
        If cells("i,11").Value < cells(i + 1, 11).Value Then
            xmin = cells(i, 11).Value
            cells(3, 16).Value = xmin
        End If

        If cells(i, 11).Value > cells(i + 1, 11).Value Then
            cells(2, 16).Value = xmax
        End If
    Next i
End Sub

excel vba max min
person S. Caruso    schedule 05.09.2018    source источник
comment
Где назначается lastrow? Это эффективно For i = 2 To 0.   -  person Comintern    schedule 05.09.2018

Ответы (1)


arrow_upward
3
arrow_downward

Попробуй это:

Sub MinMax()

    Dim xmax As Double
    Dim xmin As Double

    Dim r As Range

    Set r = Range("K2:K" & Rows.Count)
    xmin = Application.WorksheetFunction.Min(r)
    xmax = Application.WorksheetFunction.Max(r)
End Sub
person Pm Duda    schedule 05.09.2018
comment
Мне также нужно, чтобы этот минимум и/или максимум были прикреплены к символу тикера из другого столбца. Вы знаете, с чего начать? - person S. Caruso; 05.09.2018
comment
Не хочу показаться грубым, но google.com ;) Вероятно, вам нужна функция, а не саб. И использовать эту функцию для атташе - но это только догадки. - person Pm Duda; 05.09.2018
comment
Если вы считаете, что мой ответ помог вам, вы можете принять мой ответ. - person Pm Duda; 05.09.2018