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

Тема в разделе "Pascal and Delphi", создана пользователем 123456789igor, 10 ноя 2012.

  1. 123456789igor

    123456789igor Active Member

    Регистрация:
    12 янв 2011
    Сообщения:
    29
    Симпатии:
    0
    Необходимо удалить строки содержащие определенные ячейки, допустим ячейку со словом "ололо"
    Вот код(ищу с 6ой до конца)
    Код (Delphi):
    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
     
Загрузка...
Похожие Темы - Удалить Строки Содержащие
  1. Вероника Эл
    Ответов:
    5
    Просмотров:
    200
  2. Ruslan737
    Ответов:
    5
    Просмотров:
    1.820
  3. ЧИА
    Ответов:
    9
    Просмотров:
    5.666
  4. k85
    Ответов:
    6
    Просмотров:
    157
  5. WebWare Team
    Ответов:
    3
    Просмотров:
    102

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