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

Answer 2

Для решения данной задачи можно использовать макрос с использованием цикла do.

Сначала мы задаем значение переменной i равным 27, так как искомый элемент находится в ячейке b27. Далее мы создаем цикл do, в котором каждый шаг цикла будет уменьшать значение переменной i на 1.

Внутри цикла с помощью условного оператора if мы проверяем, равен ли элемент в ячейке bi заданному числу а. Если условие выполняется, то мы сохраняем значение переменной i в новую переменную last_index, которая будет хранить номер последнего элемента, равного а.

После завершения цикла мы выводим значение переменной last_index, что является ответом на задачу.

Ниже приведен пример макроса на языке VBA:

Sub FindLastIndex()
    Dim a As Integer
    Dim last_index As Integer
    Dim i As Integer
    
    a = 10 ' заданное число а
    
    last_index = 0 ' инициализация переменной last_index
    i = 27 ' начальное значение переменной i
    
    Do While i >= 5 ' цикл с условием окончания
        If Cells(i, "B") = a Then ' проверка условия
            last_index = i ' сохранение значения i в last_index
        End If
        i = i - 1 ' уменьшение i на 1
    Loop
    
    MsgBox "Номер последнего элемента, равного " & a & ", равен " & last_index ' вывод результата
End Sub

В данном примере мы предполагаем, что числа находятся в ячейках B5:B27. Этот код можно адаптировать под свои условия, указав нужный диапазон ячеек.