Поиск последнего числа и его замена - VB

Узнай цену своей работы

Формулировка задачи:

Имеется столбец в котором написаны числа. Числа написаны с 1 по 30 строку. В этих строках встречается несколько раз цифра 5. Нужно найти самую последнюю строку с этим значением и заменить её на текст, к примеру ОК. Пробовал с помощью application max. Но находил только последнюю строку, а заменить не получалось!

Решение задачи: «Поиск последнего числа и его замена»

textual
Листинг программы
Sub Rep(col as integer, Txt as string)
      for i%=30 to 1 step -1
          if Cell(i%,col).value=5 then
            Cell(i%,col).value=Txt
            Exit Sub
          end if
      next i%
End sub

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы