удалить строки содержащие определенные ячейки

← →
123456789igor © (2012-11-10 00:15) [0]

Необходимо удалить строки содержащие определенные ячейки, допустим ячейку со словом "ололо"
Вот код(ищу с 6ой до конца)
z_:=Excel.WorkBooks[1].WorkSheets["Ñóì âûáðîñû"].UsedRange.Rows.Count; for a_:=6 to z_ do begin if VarToStr(Excel.cells[a_,1]) = "ололо" then begin Excel.ActiveSheet.Rows[a_].Select; Excel.Selection.Delete; end else break; end;
компилется но ничего не происходит. Думаю с условием проблемы. Смотрел макрос
Sub Del_Itogo()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = iLastRow To 2 step -1
If Cells(i, 2) Like "*" & "ололо" & "*" Then Rows(i).Delete
Next
End Sub

← →
kilkennycat © (2012-11-10 02:21) [1]

1. проверить, чему равно z_ (возможно, цикл даже одной итерации не выполняет)
2. проверить, выполняется ли условие if VarToStr(Excel.cells[a_,1]) = "ололо" (посмотреть, что выдает VarToStr(Excel.cells[a_,1]))

удалить строки содержащие определенные ячейки Найти похожие ветки