Легкий вопрос)

[CH]

Здрости)
For i = 1 To 4000
s = Range("A" & i).Text
If s = "Î" Then
Rows("i:i").Select
Else:
Rows("1:i").Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

вот код! подскажите чтоне так, ошибка в 6 строке

[tyomitch]

двоеточие убери?

[CH]

Зачем? она что с ними что без них не работает
мне нада в этой задаче(я конечно могу показаться чайником, но я тока учусь всему, не обессутьте) в пределах 4000 тысяч строк найти в первой колонке значение О и выделить их, а остальные добустим удалить

[GSerg]

Если ты удаляешь, то нафига выделять оставшиеся?

Во-первых, смени направление цикла на обратное...
Во-вторых, узнай разницу между i и "i", потому что иначе ты будешь долго и успешно смешить людей...

[CH]

Это хорошо когда люди смеются) я рад!

но всеже как будет выглядеть этот код в правенльном виде, а? плиз

[Avtopic]

For i = 4000 To 1 Step -1
If Cells(i, 1) = 0 Or Cells(i, 1) = "" Then Rows(i).Delete Shift:=xlUp
Next i