[hasherfrog]

Начерно, без изысков:

Код:

Sub Macros1()

strTarget$ = "la-la-la"    ' <----- Place word (substring) to find here
nTotal = Rows.Count        ' <----- Place rows range here (1 to nTotal)

strTarget1$ = strTarget$ + " "
strTarget2$ = " " + strTarget$
strTarget3$ = " " + strTarget$ + " "

For I = 1 To nTotal ' don't use Rows.Count here

again:
bFound = 0

For J = 1 To Columns.Count
strThis$ = Cells(I, J)
If strThis$ = strTarget$ Then bFound = 1
If InStr(strThis$, strTarget1$) Then bFound = 1
If InStr(strThis$, strTarget2$) Then bFound = 1
If InStr(strThis$, strTarget3$) Then bFound = 1
Next J

If bFound = 0 Then GoTo notfound
Rows(I).Select
Selection.Delete Shift:=xlUp
GoTo again

notfound:
Next I

End Sub

[hasherfrog]

Удаляются строки, содержащие
1. ТОЧНО подстроку для поиска,
2. Подстроку, отделённую справа-слева пробелами
3. Подстроку, отделённую слева пробелом
3. Подстроку, отделённую справа пробелом

Т.е. для варианта "la-la-la":
Будут удалены
"la-la-la"
"la-la-la 3463 27652 "
"6543658 4678 4576 la-la-la 5678"
"555 la-la-la"
"555555la-la-la 55"
"5555 la-la-la555"
Но не будет удалено:
"555la-la-la555" (оставлено специально)
"555,la-la-la,555" (Вот это уже хуже)

[Ginger]

hasherfrog
хм... как-то не очень на VB похоже...

а если у меня несколько слов с которыми нужно удалять строки?
мне нужна array.

[aESThete]

hasherfrog
Я бы вставил еще строчку

Код:

Rows(I).Select
Selection.Delete Shift:=xlUp
nTotal = nTotal - 1
GoTo again

Не могу въехать почему Rows.Count прямо в цикле использовать нельзя?

Ginger
Самый простой тупой и медленный вариант - принимать strTarget$ в данной процедуре параметром. Соответственно вызывать эту процедуру для каждого элемента вашего массива.

[hasherfrog]

>> мне нужна array.
А как Вы его задаёте? Мне тут не совсем понятно, можно его внутри макроса определить, или его пользователь как-то вводит в окошечках, или ещё как?

aESThete
>> Не могу въехать почему Rows.Count прямо в цикле использовать нельзя?
Э-э-э... Я уже не знаю, может, это у меня артефакт какой-то остался?...