trevojnui"Worksheets("Sheet1")" - это тоже самое что и "book_TNS.Worksheets("Лист1")"? Если book_TNS есть кодовое имя активной книги (ActiveWorkbook.CodeName), то почти что да.
"Почти" - потому, что имя листа (не кодовое, а то, что обозначено на ярлычке листа) в одном случае Sheet1, а в другом Лист1, - а это совсем-совсем разные имена.
По какой причине уважаемый
trevojnui выбрал именно такой способ адресации, он не сказал, но ему виднее.
trevojnuiЕсли я знаю в какой колонке искать, немогу ли написать вот так?
Set progr = book_TNS.Worksheets("Лист1").Range("a2:a2").Find(What:="Автомобиль*", LookIn:=xlValues)? Написать так (да ещё и не так) можно. А вот получить желаемый результат, как я его понимаю, - нет. Это поиск в одной-единственной ячейке, A2.
Не говоря уже о том, что у вас и кодовое имя книги наверняка другое, и имя листа тоже.
Как обычно, поставив курсор на Find и нажав F1, можно узнать много интересного. В частности, по поводу "Автомобиль
* ":
To find cells that match more complicated patterns...
trevojnuiЦикл "For i = x To 2 Step -1" начинается с последней записи? Да. После удаления нижние строки подтягиваются вверх, и если идти сверху вниз, то при организации цикла при помощи оператора For будет пропущена без рассмотрения строка, сразу следующая за удалённой и потому занявшая её место.
* * *
Исходный код мог бы удалить только строки с "ООО МММ".
Но он не удалит ничего - просто потому, что в нём всегда будет x = 2, а там не "ООО МММ".
Я бы предложил
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Const HRDS_ADDR = "a2:x2"
Const HDR = "Предприятие"
Const PATT = "ООО[ ""]*" 'Must be in uppercase
Dim progr As Range, i As Long, x As Long, y As Long, v
Dim Ws As Worksheet
Set Ws = book_TNS.Worksheets("Sheet1")
'поиск столбца "Заказчик"
Set progr = Ws.Range(HRDS_ADDR).Find(What:=HDR, LookIn:=xlValues _
, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
x = Ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'номер последней строки
y = progr.Column '№ столбца
For i = x To progr.Row + 1 Step - 1
v = Ws.Cells(i, y)
If IsEmpty(v) Or UCase(v) Like PATT Then Ws.Rows(i).Delete
Next i
