Удалить ноль из ячейки с помощью макроса

[Димон]

Всем привет! Помогите пожалуйста! Есть столбец А, в нем есть числа и встречаются нулевые значения в них. Такие как 0, 10 ,20. Нужно убрать значение 0, но оставить этот ноль в 10 и 20. Вариант скрывания ячейки с 0 и не показывать нулевые значения не подходит. Ячейка должна быть чистой. Вариант  Range("A1:A10"). Replace 0, "" Не подходит, так как удаляет 0 у 10.

[sboy]

Добрый день.
Вот так например

Код: (vb)

   arr = Range("A1:A10").Value
        For i = 1 To UBound(arr)
            If arr(i, 1) = 0 Then arr(i, 1) = Empty
        Next
  Range("A1:A10").Value = arr

[boa]

Replace 0, "" Не подходит, так как удаляет 0 у 10.

можно отметить галочкой "соответствовать всему содержимому ячейки"

[Димон]

Спасибо огромное!!!!! Супер!!!!  :D