удалить строки содержащие определенные ячейки [D7]
123456789igor © (2012-11-10 00:15:00)
Необходимо удалить строки содержащие определенные ячейки,
допустим ячейку со словом "ололо"
Вот код(ищу с 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:00) [1]
1. проверить, чему равно z_ (возможно, цикл даже одной
итерации не выполняет)
2. проверить, выполняется ли условие if
VarToStr(Excel.cells[a_,1]) = 'ололо' (посмотреть, что выдает
VarToStr(Excel.cells[a_,1]))
Наверх 
ЧАТ |
Орешник |
|
