1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Удалить Строки Содержащие Определенные Ячейки

Тема в разделе "Вопросы новичков и не только", создана пользователем 123456789igor, 10 ноя 2012.

  1. 123456789igor

    123456789igor Active Member

    Репутация:
    0
    Регистрация:
    12 янв 2011
    Сообщения:
    29
    Симпатии:
    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
     
Загрузка...

Поделиться этой страницей