Excel VBA Макросы. Определить номер строки, в которой находится минимальное значение.

[Море]

В столбце A есть числа. Числа начинаются со строки 1. Количество чисел может быть разное.
Нужно найти ячейку, в которой находится минимальное число, и получить номер строки, в которой находится эта минимальная ячейка.

[Администратор]

Макрос

Sub Макрос()
   
    Dim Мин As Double, r As Long
    Dim lr As Long, i As Long
   
   
    '1. Поиск в столбце A последней строки.
        ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "A").End(xlUp).Row
   
    '2. Поиск минимальной строки.
   
    '1) Сначала за минимум принимаем любое число в столбце A.
        ' В этом макросе за минимум принимается первое число.
        ' В переменную r будет записываться номер строки.
    Мин = Range("A1").Value
    r = 1
   
    '2) Затем остальные ячейки сравниваются с переменной Мин.
        ' Если очередное число меньше переменной Мин, то это
        ' число будет записано в переменную Мин.
    For i = 2 To lr
        If Cells(i, "A").Value < Мин Then
            Мин = Cells(i, "A").Value
            r = i
        End If
    Next i
   
    '3. Вывод в View - Immediate Window минимальной строки.
    Debug.Print r
   
End Sub

[свернуть]

[Море]

спасибо