Повторный запуск процедуры для удаления всех данных.Почему?

[sonata]

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

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

Public Sub jkl1()
Dim i As Integer
For i = 1 To 400
If (Cells(i, 2).Value Like "*Прих*") Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

[corgi]

когда ты удаляешь например 5-ую строчку, у тебя все остальные нижние строчки поднимаются на одну вверх и на 5-ой может снова оказать слово которое надо удалить а i уже равно 6
зы Rows(i).Delete Shift:=xlUp так лучше

[BIT]

А corgi абсалютно прав. Попробуй так

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

Public Sub jkl1()
Dim i As Integer
Dim MaxRowDel As Integer
i = 0
MaxRowDel = 400
Do
   i = i + 1
   If (Cells(i, 2).Value Like "*Прих*") Then
       Rows(i).Delete Shift:=xlUp
       i = i - 1
       MaxRowDel = MaxRowDel - 1
   End If
Loop While i < MaxRowDel
End Sub


может не очень красиво, но работает.

[alibek]

Лучше всего удалять с конца

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

For I = 400 To 1 Step -1