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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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