|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.01.2018, 16:09 | #1 |
Новичок
Джуниор
Регистрация: 28.01.2018
Сообщений: 1
|
удаление строк
Добрый день!
Использовал данный макрос. Sub УдалениеСтрокПоНесколькимУсловиям() Dim delra As Range Application.ScreenUpdating = False ' отключаем обновление экрана ищем и удаляем строки, содержащие заданный текст (можно указать сколько угодно значений) УдалятьСтрокиСТекстом = Array("А.", "Ан.", "Ба.", "Бак", "Бар") перебираем все строки в используемом диапазоне листа With ActiveSheet LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row dx = .Range("A1:A" & LastRow) For i = 1 To UBound(dx) For Each word In УдалятьСтрокиСТекстом If InStr(1, dx(i, 1), word, vbTextCompare) > 0 Then добавляем строку в диапазон для удаления If delra Is Nothing Then Set delra = .Rows(i) Else Set delra = Union(delra, .Rows(i)) 'Exit For End If Next Next End With ' если подходящие строки найдены, то: (оставьте одну из 2 следующих строк) If Not delra Is Nothing Then delra.EntireRow.Hidden = True ' скрываем их If Not delra Is Nothing Then delra.EntireRow.Delete ' удаляем их Application.ScreenUpdating = True End Sub Подскажите пожалуйста как в данном макросе перебирать и удалять строки, содержащие определенный текст, при этом таких строк около 200 и текст не повторяется. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление строк из БД | katerina_lili | C# (си шарп) | 2 | 09.11.2012 17:08 |
Удаление строк | Zelenaya | Microsoft Office Excel | 6 | 26.09.2012 09:55 |
Удаление строк | chipesca | Microsoft Office Excel | 0 | 06.06.2012 20:05 |
удаление строк | alexk | Microsoft Office Excel | 24 | 15.02.2011 08:34 |
перенос строк удаление ненужных строк | HelperAwM | Microsoft Office Excel | 5 | 26.06.2010 18:42 |