[Dux]

Столкнулся с проблемой, необходимо из Дельфи удалить все строки в Excel таблице, в которых в первом столбце содержится символ "х"? Помогите советом

Пробую так, но видать где-то ошибка:

Код:

 for I2 := 0 to 200 do
   begin
    if XL.Cells[I2,1].value='x' then  begin XL.Rows[i2].delete;end;
   end;

[lmikle]

А в чем ошибка проявляется?

[Dux]

Сообщение от lmikle

А в чем ошибка проявляется?

Если в двух строках подряд имеется символ "х" удаляется только одна..

[Aristarh Dark]

Это потому, что когда ты удаляешь строку в экселе, то автоматически меняется адресация (попробуй ручками удалить строку). Чтобы обойти эту фичу делай просто - двигайся снизу вверх по строчкам, и цикл используй не for, а while или repeat.

[Dux]

Спасибо за идею... все заработало. Единственный вопрос остался, как посчитать количество заполненных строк на листе чтобы правильно организовать цикл. Подскажите...

[Aristarh Dark]

Вот код на VBA, под Delphi сам адаптируй

Код:

    iAddress = Range("A1").SpecialCells(xlLastCell).Address
    irow = Range("A1").SpecialCells(xlLastCell).Row
    iclm = Range("A1").SpecialCells(xlLastCell).Column

[erazer]

Ребята, помогите пожалуйста!! Буду благодарен за VBA код для удаления строк, в которых в 13-ом столбце содержится значение "3". Очень надо.