Question

Среди чисел в ячейках B5…B27 найти номер последнего элемента, равного числу A Создать макрос с использованием цикла Do

Answer 1

Sub aaa()
    a = CInt(InputBox("Введите А"))
    i = 27
    Do While i >= 5
        If Cells(i, 2) = a Then
            MsgBox "Значение найдено в строке " + CStr(i)
            Exit Sub
        End If
        i = i - 1
    Loop
    MsgBox "Значение не найдено"
End Sub