Тонкости функции Replace...

[sonata]

Мне нужно сделать элементарную процедуру:
заменить часть значений в ячейках на пустоту...
но влезает ошибка следующего вида:
"Function call on left-hand side of assigment must return variant or object..."

Код: Выделить всё

For i = 10 To 22
   
    Replace(Cells(i, 2).Value, "ПКО 2001 000", "") = 1
    Replace(Cells(i, 2).Value, "Прих.касс.орд. 000000", "") = 1
    Replace(Cells(i, 2).Value, "Прих.касс.орд. 0000", "") = 1

Next i

Очень надо...А то эта рутина совсем меня доконает...

[RayShade]

Хм... Надо по моему вот так:

Код: Выделить всё

For i = 10 To 22
   
    Cells(i, 2).Value = Replace(Cells(i, 2).Value, "ПКО 2001 000", "")
    Cells(i, 2).Value = Replace(Cells(i, 2).Value, "Прих.касс.орд. 000000", "")
    Cells(i, 2).Value =     Replace(Cells(i, 2).Value, "Прих.касс.орд. 0000", "")
Next i


[sonata]

RayShade, спасибо, все получилось!!!!