Как удалить все строки в Excel содержащие..

[Dux]

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

[Тупой]

Я бы макрос написал...
Вот чтото типа процедуры проверки существованя "х" - латинской прописной буквы икс.

Function isExistX(s As String) As Boolean
Dim i As Integer

isExistX = False

For i = 1 To Len(s) - 1
    If Asc(Mid(s, i)) = 120 Then
        isExistX = True
        Exit Function
    End If
Next i
End Function

Потом можно написать чтото типа

Sub KillStringsWithX()
Dim i As Integer
Dim j As Integer

j = selection.row
For i = 1 To ActiveSheet.UsedRange.Rows.Count
   If (isExistX(Cells(i, j)) = True) Then
       row("i:i").Select
       Selection.ClearContents
   End If 
Next i
End Sub

Для работы последней процедуры нужно, чтобы все косячные строчки находились др под другом, а ячейки с символом "х" одна под другой, причем самую верхнюю ячейку нужно выбрать вручную.

[Dux]

Спасибо, но я наверно неправильно сформулировал задачу. Необходимо это сделать из Дельфи..

[EducatedFool]

Необходимо это сделать из Дельфи..

Так ты в соответствующий раздел форума и обращайся за помощью...

По объектной модели Excel мы тебе можем ещё что-то подсказать (как получить какое-то свойство какого-то объекта),
а как реализовать это всё на Дельфи - тут мы тебе ничем не поможем...

Алгоритм поиска символа в ячейке тебе уже подсказали...
Но можно сделать и проще:

Sub test()
    Set Sheet = ActiveSheet ' объект Sheet - это обрабатываемый лист Excel
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(1) Like "*x*" Then Row.Delete
    Next
End Sub

Тебе осталось эти 3 строки кода перевести на Дельфи.

[Dux]

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

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

[EducatedFool]

Вместо for I2 := 0 to 200 do
напиши for I2 := 1 to 200 do

Строки в Excel нумеруются с единицы.

Ну а правильнее будет так:

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

[Dux]

Спасибо, заменил на 1, заработало, однако странно, если подряд идет две строки в которых находится символ "х", первая удаляется, а вторая нет... что это может быть?

[EducatedFool]

строка номер 5 в которой находится символ "х" не удаляется

1. Этот символ можно записать кириллицей и латиницей (в русском и английском алфавите эти символы похожи по начертанию) - возможно, причина в этом.

2. До или после этого символа присутствует пробел - ты сравниваешь значение ячейки с символом (XL.Cells[I2,1].value= 'x'), а я, чтобы этого избежать, предлагал определять наличие этого символа внутри ячейки: If Row.Cells(1) Like "*x*" Then


(добавлено)
Понял, в чём проблема.
Надо уменьшать счётчик на единицу при удалении строки.

Должно получиться что-то вроде этого: (не помню, можно ли в Дельфи изменять переменную цикла изнутри самого цикла...)

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

Или прогонять цикл в обратную сторону: (ошибки в операторах сами исправите...)

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

(добавлено)
Забыл совсем...
В дельфи нет аналога оператора step
И переменную внутри цикла трогать нельзя - вылетит ошибка Assignment to FOR-Loop variable 'i'.

Ну, тут уже Ваша очередь что-нибудь изобретать...

[Dux]

Значение "x" добавляется автоматически (при определенном условии), а не в ручную, так, что разница символов исключена... в сообщении выше я описал проблему более точно..

Здесь пример файла из которого надо удалить строки:
book.xls

[SAS888]

Есть еще более простой вариант (см. вложение. Запустите макрос "DelRows"). Вообще без организации цикла. Вот код, удаляющий строки, в столбце "A" которых значение "x", примененный во вложении:

Sub DelRows()

    Dim Sname As String, i As Long
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Sname = ActiveSheet.Name: Sheets.Add.Name = "Temp": Sheets(Sname).Activate
    i = Cells(Rows.Count, "A").End(xlUp).Row + 1: Cells(i, "A") = "x"
    Columns("A").ColumnDifferences(Comparison:=Cells(i, "A")).EntireRow.Copy Sheets("Temp").[A1]
    Sheets(Sname).Delete: Sheets("Temp").Name = Sname

End Sub

P.S. При большом количестве строк, этот вариант значительно быстрее.