GSerg » 24.10.2004 (Вс) 17:19
Ну дык и почему это не в разделе VBA запощено?
dim i as long
for i=usedrange.rows.count to 1 step -1
with cells(i,9)
if clng(.value)=0 then .entirerow.delete
end with
next
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас