Как удалить много строк в excel

Как в Excel удалить пустые строки

Работая с большими объемами данных в таблицах Excel, мы часто сталкиваемся с наличием пустых строк в Excel. Для того чтобы убрать пустые строки есть несколько способов:

• с помощью сортировки данных;
• с помощью фильтрации данных;
• с помощью выделения группы ячеек;
• с помощью вспомогательного столбца;

Давайте рассмотрим каждый из них.

Как удалить пустые строки в Excel с помощью сортировки

Представим, что у нас есть таблица с данными продаж по разным странам и городам:

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

Для того чтобы отсортировать данные нашей таблицы проделаем следующие шаги:

• Выделим левой клавишей мыши диапазон данных таблицы, затем на вкладке “Данные” нажмем на кнопку “Сортировка”:

• В появившемся диалоговом окне сортировки выберем столбец, по которому будут отсортированы данные и укажем их порядок:

• После этого система автоматически отсортирует строки с пустыми ячейками, и разместит их внизу таблицы:

• Затем, выделите пустые строки левой клавишей мыши и удалите их, нажав правой кнопкой мыши и выбрав пункт “Удалить”:

Если вы хотите удалить строки целиком, то я рекомендую выделять их отмечая левой клавишей мыши за порядковые номера строк. Так, система выделит все колонки в строке и вы за пару кликов сможете их удалить.

Как удалить пустые строки в Excel с помощью фильтрации

Для того чтобы удалить строки в той же самой таблице, но уже с помощью фильтрации, проделаем следующие шаги:

• Выделим левой клавишей мыши диапазон данных таблицы, затем на вкладке “Данные” нажмем на кнопку “Фильтр”:

Важно! Для корректной фильтрации данных обязательно, перед нажатием кнопки “Фильтр”, выделите область со значениями таблицы, включая пустые строки. Если этого не сделать – фильтрация данных таблицы будет осуществляться до первой пустой строки!

• Нажмите на выпадающий список фильтра любого из заголовков таблицы и выберите пустые строки:

• После того как пустые строки выбраны, выделите их и удалите, как это показано на примерах выше.

У этого способа удаления пустых строк есть минус, он заключается в том, что для их удаления вам необходимо отфильтровать каждую колонку. Делать это следует внимательно, дабы не удалить строки с данными.

Как убрать пустые строки в Excel с помощью выделения группы ячеек

Для удаления пустых строк можно воспользоваться инструментом выделения группы ячеек. Для этого:

• Выделите ячейки с данными вашей таблицы;
• Перейдите в меню “Найти и выделить” и выберите пункт “Выделить группу ячеек”:

• Во всплывающем окне отметьте пункт “Пустые ячейки”:

• Система автоматически выделит все пустые ячейки:

• Для удаления выделенных строк, нажмите на любой из правой кнопкой мыши и выберите пункт “Удалить”:

• Затем, во всплывающем окне выберите пункт “Строку”:

Внимание! Будьте аккуратны с использованием данного способа! Удаляя выделенные ячейки, есть высокая вероятность того, что вы удалите строки с данными, например, в которых есть только одна пустая ячейка, а в соседних ячейках строки есть данные!

Как удалить пустые строки в Экселе с помощью вспомогательного столбца

Пожалуй, самый эффективный и надежный способ удаления пустых строк в Excel это создание вспомогательного столбца, рядом с таблицей.

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

Используя раннее описанные способы, высока вероятность удалить строки с данными.

Поэтому, чтобы избежать потери данных при удалении пустых строк, создадим справа от таблицы столбец, в который вставим функцию СЧИТАТЬПУСТОТЫ, в ней укажем диапазон всех ячеек каждой строки таблицы и протянем формулу до конца таблицы:

• Функция СЧИТАТЬПУСТОТЫ ведет подсчет пустых ячеек в указанном диапазоне. Так как столбцов в нашей таблице с данными 4 штуки, то если во вспомогательном столбце мы найдем значение “4” это будет означать, что эта строка в таблице пустая и ее можно удалить. Для этого отфильтруем значения таблицы по вспомогательному столбцу по числу “4” и определим пустые строки:

• Пустые строки найдены. Теперь их можно выделить и удалить.

Как: удалить несколько строк в Excel

Пустые строки не плохие, но в большинстве листов они определенно нежелательны. Excel использует пробелы для определения диапазонов данных, а пустая строка в неправильном месте мешает многим интегрированным функциям. К счастью, есть простой способ удалить пустые строки из области данных, но этот простой метод может уничтожить данные, поэтому вы должны быть осторожны.

Как удалить несколько строк в Excel?

Удаление строк или столбцов из контекстного меню

1. Сначала выберите строку строк или столбцов и щелкните правой кнопкой мыши.
2. Затем выберите «Удалить строки» или «Удалить столбцы» соответственно.
3. Вы также можете выбрать строки или столбцы и нажать на макет.
4. Затем выберите «Удалить» и выберите «Удалить столбцы» или «Удалить строки».

Удалить строки в Excel по цвету ячейки

Апрельское обновление 2020:

Теперь мы рекомендуем использовать этот инструмент для вашей ошибки. Кроме того, этот инструмент исправляет распространенные компьютерные ошибки, защищает вас от потери файлов, вредоносных программ, сбоев оборудования и оптимизирует ваш компьютер для максимальной производительности. Вы можете быстро исправить проблемы с вашим ПК и предотвратить появление других программ с этим программным обеспечением:

• Шаг 1: Скачать PC Repair & Optimizer Tool (Windows 10, 8, 7, XP, Vista — Microsoft Gold Certified).
• Шаг 2: Нажмите «Начать сканирование”, Чтобы найти проблемы реестра Windows, которые могут вызывать проблемы с ПК.
• Шаг 3: Нажмите «Починить все», Чтобы исправить все проблемы.

Опция фильтра позволяет сортировать данные по цвету ячейки. Это позволяет удалить все строки, которые содержат определенный цвет фона.

1. Примените фильтры к вашему столу. В Excel перейдите на вкладку «Данные» и щелкните значок «Фильтр».
2. Нажмите на маленькую стрелку рядом с именем нужного столбца, перейдите в Фильтр по цвету и выберите правильный цвет ячейки. Нажмите кнопку ОК, и вы увидите все выбранные ячейки в верхней части.
3. Выберите отфильтрованные цветные ячейки, щелкните их правой кнопкой мыши и выберите «Удалить линию» из меню.
4. Вот и все! Линии с клетками одинакового цвета удаляются в кратчайшие сроки.

Удалите несколько строк, выбрав целые строки.

1. Выберите количество строк, которые вы хотите удалить.
Примечание. В этом примере мы удаляем три строки (строки 2, 3 и 4). Чтобы выделить целые строки, нажмите и перетащите номер первой строки вниз, пока не достигнете количества строк, которое вы хотите удалить, или выберите первую ячейку строки, удерживайте клавиши Ctrl и Shift и нажмите правую кнопку мыши, затем отпустите нажмите клавишу Ctrl (нажмите клавишу Shift) и, удерживая нажатой клавишу Shift, выберите количество строк, которые вы хотите удалить.

2. Щелкните правой кнопкой мыши в любом месте выбранной строки и нажмите «Удалить».

Удаление нескольких строк с помощью опции ленты

1. Выберите ячейки, из которых вы хотите удалить строки.
Примечание. В этом примере мы удаляем три строки (строки 2, 3 и 4). Вы можете выбрать несколько ячеек в отдельных строках и столбцах (например, B4, E7, G9), удалив строки 4, 7 и 9.

2. выберите вкладку Главная.

3. в группе Клетки нажмите Удалить.

4. нажмите Удалить строку с листа.

Заключение

Excel — это идеальный инструмент для хранения данных, которые время от времени меняются. Однако обновление таблицы после нескольких изменений может занять много времени. Задача может быть такой же простой, как удаление всех пустых строк в Excel. Или вам может понадобиться найти и удалить дубликаты данных. Одна вещь, в которой мы уверены, это то, что каждый раз, когда детали приходят или уходят, вы ищете лучшее решение, чтобы сэкономить время на незавершенной работе.

CCNA, веб-разработчик, ПК для устранения неполадок

Я компьютерный энтузиаст и практикующий ИТ-специалист. У меня за плечами многолетний опыт работы в области компьютерного программирования, устранения неисправностей и ремонта оборудования. Я специализируюсь на веб-разработке и дизайне баз данных. У меня также есть сертификат CCNA для проектирования сетей и устранения неполадок.

5 вариантов, как удалить пустые строки в Excel

Доброго времени суток друзья!

Эту статью я написал с целью описать 5 простых вариантов, как возможно удалить пустые строки в Excel. Частенько после импорта данных или простого копирования с другого источника мы получаем пустые строки и столбцы, что в дальнейшем может негативно сказаться и осложнить работу с информацией.

Разрывы, которые возникают в таблице благодаря возникшим пустотам, могут помешать вам эффективно ее использовать. Возникают такие проблемы:

• ошибки при автоматическом построении разнообразных формул, графиков, диаграмм;
• пустые строки, выполняют роль разделителя вычисляемой области и т.п.;

Избежать таких ошибок очень легко и очень просто, нужно всегда следить постоянно за качеством вашей информации и при выявлении ненужных пробелов в ваших данных, удалять их. Найти и удалить незаполненые строки, столбцы и ячейки можно 5 способами:

Сортировка

Это самый простой способ убрать с вашей рабочей области или вычисляемого диапазона чистые строки. Вам нужно выделить диапазон, выбрать на вкладке «Данные» кнопку «Сортировка» и в предоставленном диалоговом окне выбираем вариант сортировки. Программа всё отсортирует по полочкам, и вы можете удалить пустые строки. Будьте внимательны! При использовании сортировки в таблице, которая имеет в своем составе несколько столбцов, вы можете нарушить целостность информации, ваши данные могут сместиться на другие ряды. Для избегания этой проблемы при выборе сортировки, нужно выделить всю таблицу и применить сортировку для всего выделенного объема.

Если очень важен порядок следования строк в таблице, вам стоит для начала создать столбик с порядковой нумерацией рядов, а после сортировки и удаления пустых срок в таблице Excel, снова выстроить данные по этому столбику.

Фильтрация

Этот способ также является простым и доступным абсолютно любому пользователю. Для применения фильтра на таблицу вам необходимо на вкладке «Главная» в разделе «Редактирование» нажимать кнопку «Сортировка и фильтр» и в открывшемся пункте меню выбираете «Фильтр». После включения фильтра, вам нужно выбрать столбец и в выпадающем меню указать отображение пустых ячеек. Дольше вы выделяете полученные пустые строки и просто-напросто удаляете их.

Выделение группы ячеек

Я бы и этот способ причислил к достаточно простым и лёгким. Для применения этого варианта вам нужен инструмент «Выделение группы ячеек». Удалить незаполненые строки возможно в несколько этапов:

• выделение нужного диапазона;
• выбираем вкладку «Главная», в блоке «Редактирование», кликаем «Найти и выделить» и в выпадающем меню выбираете «Выделение группы ячеек»;

• в диалоговом окне, в разделе «Выделить» отмечаем пункт «пустые ячейки»;

• переходим во вкладку «Главная» и нажимаем кнопку «Ячейки» и выбираем пункт «Удалить»;
• в диалоговом окне выбираете пункт «удалить ячейки со сдвигом вверх» и все незаполненые строки будут удалены.

Формула массива

Этот способ уже на искушенного пользователя. Хотя ничего уж слишком сложного и нет, тем не менее, этот способ я увидел у Николая Павлова на его сайте и решил добавить его для полноты информации о возможностях чистки от пустых строк с применением формулы массива.

Итак, в чём же состоит этот способ по удалению пустых строк в Excel и как его применять:

• для большей простоты дадим имена нашим диапазонам, для этого на вкладке «Формулы» нажимаете «Диспетчер имен» и присваиваете для двух диапазонов имена, например для изначальных данных с пустыми ячейками – «Пустые», а для обработанных – «БезПустых». Обязательное условие в том, что диапазоны должны иметь одинаковый результат, но вот размещение этих диапазонов могут и отличатся, это не критично;

• следующим шагом это введение в первую ячейку второго диапазона формулу:

=ЕСЛИ( СТРОКА() — СТРОКА (БезПустых) +1> ЧСТРОК( Пустые) — СЧИТАТЬПУСТОТЫ (Пустые);»«; ДВССЫЛ ( АДРЕС (НАИМЕНЬШИЙ ((ЕСЛИ (Пустые <>»»; СТРОКА (Пустые); СТРОКА()+ ЧСТРОК( Пустые))); СТРОКА() — СТРОКА (БезПустых)+1); СТОЛБЕЦ( Пустые);4))). Да я сам знаю, что формула страшная, сам, когда ее увидел, обалдел, тем не менее, она рабочая и исправно выполняет возложенные на нее обязанности;

• после прописания формулы, вам нужно окончить введение формулы «гарячей» комбинацией клавишCtrl+Shift+Enter, это необходимо для того, что бы формула была введена как формула массива. Теперь используя возможность в Excel как авто заполнение (копирование формулы, протягивая за крестик в углу) вы получили исходный диапазон, но уже без пустых ячеек.

Макрос

Этот вариант также не прост, но, используя предоставленные коды, и инструкции к их применению ничего сложного и неосуществимого вы не увидите. Макрос стоит использовать, если вы уверены что такую процедуру по удалению пустых строк в Excel, а также, столбцов или ячеек будет очень частым и для выполнения этих работ стоит прописать скрипт.

Перейдите во вкладку «Сервис», выберите раздел «Макрос» и нажмите кнопку «Редактор Visual Basic» или нажав ALT+F11 и в появившемся диалоговом окне редактора нажимаем «Insert» — «Module». В открывшимся, пустом модуле ставим код:

• для удаления всех незаполненых рядов в таблице:

Как удалить лишние строки в Microsoft Excel

Перед выводом документа Excel на печать пользователю необходимо удалить лишние строки. Если их одна или две, это несложно. Но что делать, когда документ массовый и требует оперативного подхода к форматированию?

Первый способ: удаление одиночных строчек в малом количестве

Для того, чтобы отформатировать документ Excel, не нужно знать сложные функции и формулы. Чтобы удалить несколько строк, сделайте следующее:

1. Предположим, в Excel имеется таблица, в которой присутствует одна лишняя строчка. Чтобы ее удалить, необходимо сделать клик на ячейке строки, от которой нужно избавиться, затем правой кнопкой мыши вызвать контекстное меню. Выбираем пункт «Удалить», а следом «Удалить строки».

1. После этого объект будет удален из таблицы. Также можно выбрать номер строки в начале электронной книги и нажать «Удалить».

1. Можно воспользоваться инструментами, расположенными на панели инструментов. Для этого выделяем строку, которая оказалась лишней в электронной книге. Переходим в рабочую панель, находим блок «Ячейки» во вкладке «Главная». Выбираем инструмент «Удалить», где нажимаем «Удалить строки с листа».

Для пользователей, хорошо знакомых с интерфейсом программы, удобнее брать инструменты для работы именно с панели управления, так как их отыскать в разы быстрее, чем те, что находятся в контекстном меню.

Второй способ: групповое удаление строк в Excel

Когда диапазон документа большой, можно использовать групповое выделение ненужных строк и их удаление. Покажем, как это сделать на примере маленькой таблицы, но в случае масштабной электронной книги все получится ровно также.

1. Если лишние строки располагаются друг за другом, можно сделать выделение мышью, затем воспользоваться кнопкой «Удалить». Здесь важно правильно выбрать «удалить строки с таблицы» или «Удалить строки с листа».
2. Что делать, если строки расположены через одну или в любом другом хаотичном порядке на листе? Зажимаем клавишу «Ctrl» и левой кнопкой мыши делаем клики по необходимым строкам.

1. По таблице хорошо видно, какие строчки отметились. Далее, чтобы их исключить из электронной книги, делаем вызов контекстного меню и нажимаем кнопку «Удалить».

Как видите, появляется только возможность «Удалить строки». После проделанных действий можно оформлять таблицу для отправки.

Третий способ: удаление пустых лишних строк

Если после обработки электронной таблицы остались пустые строки, их тоже необходимо удалить.

1. Для этого находим все пустые строки во всем диапазоне таблицы. Переходим во вкладку «Главная», затем в блок «Найти и выделить», выбираем инструмент «Выделить группы ячеек».

1. В появившемся небольшом окне необходимо переставить флажок напротив записи «Пустые ячейки», затем нажать на кнопку «Ок». Все необходимые строки выделены фоном.

1. Далее во вкладке «Главная переходим к блоку «Ячейки» и нажимаем «Удалить».

Если электронная книга не имеет ограниченных таблиц, то последний способ удаления может не получиться, так как он предназначен только для тех случаев, если таблица с пустыми ячейками имеет рамки.

Четвертый способ: применение инструмента «Сортировка»

Когда для оформления документа есть конкретные условия, воспользуйтесь сортировкой для исключения ненужных строк.

1. Выделяем ту область таблицы, которую необходимо отсортировать и оставить неизменной. Затем переходим во вкладку «Главная», перемещаемся к блоку «Сортировка и фильтр». Затем выбираем «Настраиваемая сортировка».

1. В открывшемся окне выставляем все необходимые параметры, как показано на фото, и нажимаем кнопку «Ок». В каждом конкретном случае сортировка может выполняться по-другому.

1. Оставшиеся строки можно удалить при помощи способов, рассмотренных выше.

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

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

Способ первый:
Использовать встроенное средство Excel — фильтр. Сначала его необходимо «установить» на листе:

• Выделяем таблицу с данными, включая заголовки. Если их нет — то выделяем с самой первой строки таблицы, в которой необходимо удалить данные
• устанавливаем фильтр:
  • для Excel 2003 : Данные—Фильтр—Автофильтр
  • для Excel 2007-2010 : вкладка Данные (Data) —Фильтр (Filter)(или вкладка Главная (Home) —Сортировка и фильтр (Sort&Filter) —Фильтр (Filter) )

Теперь выбираем условие для фильтра:

• в Excel 2003 надо выбрать Условие и в появившейся форме выбрать непосредственно условие(«равно», «содержит», «начинается с» и т.д.), а напротив значение в соответствии с условием.
• Для 2007-2010 Excel нужно выбрать Текстовые фильтры (Text Filters) и либо сразу выбрать одно из предлагаемых условий, либо нажать Настраиваемый фильтр (Custom Filter) и ввести значения для отбора в форме

После этого удалить отфильтрованные строки. В 2007 Excel могут возникнуть проблемы с удалением отфильтрованных строк, поэтому рекомендую сначала так же прочитать статью: Excel удаляет вместо отфильтрованных строк — все?! Как избежать.

Способ второй:
применить код VBA, который потребует только указания значения, которое необходимо найти в строке и номер столбца, в котором искать значение.

Sub Del_SubStr() Dim sSubStr As String ‘искомое слово или фраза(может быть указанием на ячейку) Dim lCol As Long ‘номер столбца с просматриваемыми значениями Dim lLastRow As Long, li As Long Dim lMet As Long Dim arr sSubStr = InputBox(«Укажите значение, которое необходимо найти в строке», «Запрос параметра», «») If sSubStr = «» Then lMet = 0 Else lMet = 1 lCol = Val(InputBox(«Укажите номер столбца, в котором искать указанное значение», «Запрос параметра», 1)) If lCol = 0 Then Exit Sub lLastRow = ActiveSheet.UsedRange.Row — 1 + ActiveSheet.UsedRange.Rows.Count arr = Cells(1, lCol).Resize(lLastRow).Value Application.ScreenUpdating = 0 Dim rr As Range For li = 1 To lLastRow ‘цикл с первой строки до конца If -(InStr(arr(li, 1), sSubStr) > 0) = lMet Then If rr Is Nothing Then Set rr = Cells(li, 1) Else Set rr = Union(rr, Cells(li, 1)) End If End If Next li If Not rr Is Nothing Then rr.EntireRow.Delete Application.ScreenUpdating = 1 End Sub

Если значение sSubStr не будет указано, то будут удалены строки, ячейки указанного столбца которых, пустые.
Данный код необходимо поместить в стандартный модуль. Вызвать с листа его можно нажатием клавиш Alt + F8 , после чего выбрать Del_SubStr и нажать Выполнить. Если в данном коде в строке
If -(InStr(Cells(li, 1), sSubStr) > 0) = lMet Then
вместо = lMet указать <> lMet , то удаляться будут строки, не содержащие указанное для поиска значение. Иногда тоже удобно.
Но. Данный код просматривает строки на предмет частичного совпадения указанного значения. Например, если Вы укажете текст для поиска «отчет», то будут удалены все строки, в которых встречается это слово(«квартальный отчет», «отчет за месяц» и т.д.). Это не всегда нужно. Поэтому ниже приведен код, который будет удалять только строки, указанные ячейки которых равны конкретно указанному значению:

Sub Del_SubStr() Dim sSubStr As String ‘искомое слово или фраза(может быть указанием на ячейку) Dim lCol As Long ‘номер столбца с просматриваемыми значениями Dim lLastRow As Long, li As Long Dim arr sSubStr = InputBox(«Укажите значение, которое необходимо найти в строке», «Запрос параметра», «») lCol = Val(InputBox(«Укажите номер столбца, в котором искать указанное значение», «Запрос параметра», 1)) If lCol = 0 Then Exit Sub lLastRow = ActiveSheet.UsedRange.Row — 1 + ActiveSheet.UsedRange.Rows.Count arr = Cells(1, lCol).Resize(lLastRow).Value Application.ScreenUpdating = 0 Dim rr As Range For li = 1 To lLastRow ‘цикл с первой строки до конца If CStr(arr(li, 1)) = sSubStr Then If rr Is Nothing Then Set rr = Cells(li, 1) Else Set rr = Union(rr, Cells(li, 1)) End If End If Next li If Not rr Is Nothing Then rr.EntireRow.Delete Application.ScreenUpdating = 1 End Sub

Здесь так же, как и в случае с предыдущим кодом можно заменить оператор сравнения( Cells(li, lCol) = sSubStr ) с равно на неравенство( Cells(li, lCol) <> sSubStr ) и тогда удаляться будут строки, значения ячеек которых не равно указанному.

УДАЛЕНИЕ СТРОК НА ОСНОВАНИИ СПИСКА ЗНАЧЕНИЙ(МНОЖЕСТВЕННЫЕ КРИТЕРИИ)
Иногда бывают ситуации, когда необходимо удалить строки не по одному значению, а по нескольким. Например, если строка содержит или Итог или Отчет. Ниже приведен код, при помощи которого можно удалить строки, указав в качестве критерия диапазон значений.
Значения, которые необходимо найти и удалить перечисляются на листе с именем «Лист2». Т.е. указав на «Лист2» в столбце А(начиная с первой строки) несколько значений — они все будут удалены. Если лист называется иначе(скажем «Соответствия») в коде необходимо будет «Лист2» заменить на «Соответствия». Удаление строк происходит на активном в момент запуска кода листе. Это значит, что перед запуском кода надо перейти на тот лист, строки в котором необходимо удалить.

Sub Del_Array_SubStr() Dim sSubStr As String ‘искомое слово или фраза Dim lCol As Long ‘номер столбца с просматриваемыми значениями Dim lLastRow As Long, li As Long Dim avArr, lr As Long Dim arr lCol = Val(InputBox(«Укажите номер столбца, в котором искать указанное значение», «Запрос параметра», 1)) If lCol = 0 Then Exit Sub Application.ScreenUpdating = 0 lLastRow = ActiveSheet.UsedRange.Row — 1 + ActiveSheet.UsedRange.Rows.Count ‘заносим в массив значения листа, в котором необходимо удалить строки arr = Cells(1, lCol).Resize(lLastRow).Value ‘Получаем с Лист2 значения, которые надо удалить в активном листе With Sheets(«Лист2») ‘Имя листа с диапазоном значений на удаление avArr = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) End With ‘удаляем Dim rr As Range For lr = 1 To UBound(avArr, 1) sSubStr = avArr(lr, 1) For li = 1 To lLastRow ‘цикл с первой строки до конца If CStr(arr(li, 1)) = sSubStr Then If rr Is Nothing Then Set rr = Cells(li, 1) Else Set rr = Union(rr, Cells(li, 1)) End If End If DoEvents Next li DoEvents Next lr If Not rr Is Nothing Then rr.EntireRow.Delete Application.ScreenUpdating = 1 End Sub

Чтобы код выше удалял строки не по точному совпадению слов, а по частичному(например, в ячейке записано «Привет, как дела?», а в списке есть слово «привет» — надо удалить, т.к. есть слово «привет»), то надо строку: