Функция удаления строк в макросе

[alexsampler]

Добрый день!
Excel 2003
С макросами пока очень «на вы», но нужна помощь…
Есть примитивный макрос для обработки фала txt с помощью мастера текста, нужно добавить такой код, что бы удалялись строки в ячейках которых присутствует слово «рез»
так это выглядит в файле (информация в 12 столбцах)
1 500.00 1 MD нерез
2 000.00 1 KZ нерез
1 500.00 1 CA рез
1 500.00 1 LV рез


Вот часть существующего кода:

Range("H22").Select
Columns("K:K").ColumnWidth = 6
Columns("A:A").ColumnWidth = 3.14
Rows("1:9").Select
Range("A9").Activate
Selection.Delete Shift:=xlUp
Range("A1:L2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

После последней строки и нужно вставить искомый код...
надеюсь пример файла не нужен ....

СПАСИБО!

[VictorM]

так это выглядит в файле (информация в 12 столбцах)

надеюсь пример файла не нужен ....

зря надеетесь
это что, мне сейчас заполнять 12 столбцов и думать как там у Вас данные расположены?
а насчет

строки в ячейках которых присутствует слово «рез»

похожее было вчера, только там вставка строки, а у вас удаление

[EducatedFool]

Удаление (скрытие) строк по условию
http://excelvba.ru/code/ConditionalRowsDeleting

[alexsampler]

Добрый день!
Спасибо за советы, EducatedFool, макрос http://excelvba.ru/code/ConditionalRowsDeleting, действительно подходящий, но вот в чем беда:
В обрабатываемом документе есть два крупных критерия «рез» и нерез», так вот макрос удаляет вообще все существующие строки, воспринимая слово «нерез» тоже как искомое.
А мне как раз нужно «нерез» оставить.

Я уже подумал – может быть лучше использовать команду удалять все строки, кроме тех, в которых содержится слово «нерез»?
Помогите пожалуйста!!!
p.s.
добавляю на всякий случай пример с частью обрабатываемого документа

[Hugo121]

Какая проблема?
В этом примере можно так:

Sub tt()
Dim i&
For i = 9 To 1 Step -1
If Cells(i, 12) = "рез" Then Rows(i).Delete
Next
End Sub

Только ещё на практике нужно отключить обновление экрана и пересчёт формул (если они есть), чтоб не рябило и не тормозило.
Или код чуть посложнее можно написать -с ColumnDifferences: http://www.programmersforum.ru/showthread.php?t=145071
Но можно ведь сразу Ваш текст перебрать - из одного файла сделать другой, с тем же названием, но без лишних строк.

[alexsampler]

Добрый день!
HUGO 121, Спасибо большое!
Ваш код пока не проверял, но нашел пока простой но не красивый выход, как раз для таких нерадивых пользователей как я )))
Я начал запись нового макроса с произвольным названием, в сформированном файле задал автофильтр, выбрал все строки по столбцу со значениями «рез», удалил все отсортированные строки. Зашел в созданный макрос, скопировал код и вставил в свой рабочий, и в общем все заработало.

Понимаю, что способ примитивный и наверно не грамотный, но может быть будет полезен всем, кто еще не разбирается в VBA. В конце концов, дает же excel такой вариант решения…

Имеет ли такой вариант решения проблемы, право на существование ???
Спасибо!!!

[kuklp]

Это один из самых эффективных способов. Вот еще один:

Sub DelRows()
    Dim x As Range: Set x = [l:l].Find(What:="нерез", LookAt:=xlWhole)
    If Not x Is Nothing Then [l:l].ColumnDifferences(x).EntireRow.Delete
End Sub