Удалить строку по условию

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удалить строку по условию (Формулы/Formulas)

карандаш

Дата: Пятница, 22.04.2016, 09:34 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

Здравствуйте

Посмотрел подобные темы, но мало что понял.
Требуется: в определённой колонке (в нашем случае D) найти определённое слово (в нашем случае internet). В случае нахождения (вхождения заданного набора символов в текст ячейки), эта строка удаляется.

Подскажите, что можно сделать. или VBA ?

К сообщению приложен файл: 4259674.xlsx (10.8 Kb)

Сообщение отредактировал карандаш - Пятница, 22.04.2016, 09:39

Ответить

_Boroda_

Дата: Пятница, 22.04.2016, 09:40 | Сообщение № 2

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

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

Сообщений: 16672

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

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

2003; 2007; 2010; 2013 RUS

Такой вариант тупым перебором
[vba]

Код

Sub tt()
    r1_ = Range("D" & Rows.Count).End(xlUp).Row
    For i = r1_ To 8 Step -1
        If InStr(Range("D" & i), "internet") Then
            Rows(i).Delete
        End If
    Next i
End Sub

[/vba]
Кстати да, забыл совсем про отключение обновления экрана и отключение событий и отключение пересчета и отключение сообщений

К сообщению приложен файл: 001-1-1.xlsm (18.3 Kb)

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

Сообщение отредактировал _Boroda_ - Пятница, 22.04.2016, 10:06

Ответить

карандаш

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

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

Волшебная кнопка!

спасибо большое!

Ответить

карандаш

Дата: Пятница, 22.04.2016, 09:51 | Сообщение № 4

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

А вот вопрос в догонку:

Когда строк много, то изображение дрожит (перерисовка где-то там происходит), а через некоторое время впадает в анабиоз и в шапке окна добавляется надпись в "(программа не отвечает)".
Потом она (он?) оживает и бодро рисует обновлённый лист без удалённых строк.

Были какие-то средства отключать вывод изображения, обрабатывать, потом включать вывод на экран.
Можно чем-то подобным обрамить код волшебной кнопки?

спасибо