Здравствуйте. Подскажите, пож-та, как получить номер строки с максимальным значением в диапазоне K24:K29 в переменную "nstr" В дальнейшем диапазон будет задаваться другой в пределах столбца K. Нужен код VBA. Спасибо.
Sub Номер_строки()
Dim Max As Double, nStr As Long
Dim Rng As Range, rCell As Range
Set Rng = Range("K24:K29")
Max = Application.Max(Rng)
For Each rCell In Rng
If rCell.Value = Max Then
nStr = rCell.Row
Exit For
End If
Next rCell
MsgBox "Номер строки с максимальным числом: " & nStr, vbInformation, ""
End Sub
Вот любите вы всё усложнять) А новички потом под себя не могут переделать и не знают, что такое циклы ) P.S. Одно дело укоротить для себя, другое для людей, которые только начинают учиться макросам ) P.P.S. Кстати, тот же Find - я уверен тот же цикл, только написанный на языке СИ, просто обёрнутый в функцию