Удаление строки по заданному символу

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строки по заданному символу (Макросы/Sub)

emkub

Дата: Пятница, 15.04.2016, 19:38 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте!
Возникла сложность на ровном месте. Вот рабочий макрос:
[vba]

Код

Sub Удаление_стр_с_тегами()

' удалить строку, если в ячейках.. есть символ "<"

Application.ScreenUpdating = 0

Dim n&, i&, r As Range

n = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To n

    If InStr(Cells(i, "g"), "<") > 0 Then If r Is Nothing Then Set r = Cells(i, "g").EntireRow Else Set r = Union(r, Cells(i, "g").EntireRow)
    If InStr(Cells(i, "l"), "<") > 0 Then If r Is Nothing Then Set r = Cells(i, "l").EntireRow Else Set r = Union(r, Cells(i, "l").EntireRow)
    If InStr(Cells(i, "m"), "<") > 0 Then If r Is Nothing Then Set r = Cells(i, "m").EntireRow Else Set r = Union(r, Cells(i, "m").EntireRow)
    If InStr(Cells(i, "n"), "<") > 0 Then If r Is Nothing Then Set r = Cells(i, "n").EntireRow Else Set r = Union(r, Cells(i, "n").EntireRow)
    If InStr(Cells(i, "o"), "<") > 0 Then If r Is Nothing Then Set r = Cells(i, "o").EntireRow Else Set r = Union(r, Cells(i, "o").EntireRow)

Next
    r.Delete Shift:=xlUp

Application.ScreenUpdating = 1

End Sub

[/vba]

Но он отказывается работать, если по заданным параметрам не нашлось совпадений. Он выдаёт ошибку, если в тексте нет символа "<". Если есть хоть одно совпадение - работает хорошо.
Скажите пожалуйста, где я ошибся?

К сообщению приложен файл: 9614602.xlsm (20.0 Kb)

Сообщение отредактировал emkub - Пятница, 15.04.2016, 19:39

Ответить

_Boroda_

Дата: Пятница, 15.04.2016, 19:55 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

А если так?
[vba]

Код

For i = 2 To n
On error resume next
If...
...
On error goto 0
Next

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

emkub

Дата: Пятница, 15.04.2016, 20:09 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Результат тот же.

Run-time error '91'
Object variable or With block variable not set

Ответить

Pelena

Дата: Пятница, 15.04.2016, 20:14 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

А если условие поставить типа
[vba]

Код

If Not r Is Nothing Then r.Delete Shift:=xlUp

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

emkub

Дата: Пятница, 15.04.2016, 20:17 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

О! Работает!
Я ставил подобную проверку, только без "Not" - вот где запорол :)
Благодарю!

Ответить

KuklP

Дата: Пятница, 15.04.2016, 21:04 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Без некоторых ненужных телодвижений:
[vba]

Код

Sub Удаление_стр_с_тегами()
    Dim i&, r As Range, s$
    For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row
        s = Cells(i, 7) & Cells(i, 12) & Cells(i, 13) & Cells(i, 14) & Cells(i, 15)
        If InStr(s, "<") Then If r Is Nothing Then Set r = Rows(i) Else Set r = Union(r, Rows(i))
    Next
    If Not r Is Nothing Then r.Delete
End Sub

[/vba]