Поиск последнего числа и его замена - 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

Похожие ответы