Удаление (скрытие) строк по условию

Подскажите, пожалуйста, какие изменения нужно внести в ваш макрос для скрытия просто пустых строк в диапазоне от 1 до 150 строки.

А как адаптировать Ваш макрос для ячейки с условием, например удалять строку если в ячейке значение больше, например, нуля?

уже все работает)

У меня не удаляет ничего( Что я делаю не правильно?
удалять только на первом листе, который называется "накладная"
If ws.Index = 1 Then
Правильно?

Спасибо!!! Все работает как нужно - с Вашей помощью.

Просмотрел много форумов по удалению строк через макрос. Нашел один который частично подходит мне, он удаляет строки если в 5 столбце пусто во всех листах кроме первого. Но не знаю как добавить, чтоб удалял еще и строки если в 4 столбце значение 0. Код быстрый (без цикла) а как дополнить - ума не приложу...
Sub DeleteEmptyRowsToAll()
Application.ScreenUpdating = False ' отключаем обновление экрана
On Error Resume Next
Dim ws As Worksheet 'декларирование переменой
For Each ws In Worksheets
If ws.Index > 1 Then ' кроме первого листа
ws.Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow.Delete ' удаляем сразу все строки, в которых в 5-м столбце - пусто
End If
Next
End Sub

Заранее благодарю

Огромное спасибо за помощь!!! :)

Про чёрные ячейки в столбце...
Файл обновляется несколько раз в день - делать выборку вручную не вариант, нужен макрос.
А офис 2007 покупать шеф не хочет - 18 компов... Хватит вам и 2003, тем более официальный.
Про форум - пардон, не так назвал. Извините, если обидел.

Очень хороший форум! Часто им пользуюсь, а вот теперь забуксовал.
задача: имеется таблица, в которой, например, третий из столбец заполнен по принципу - или черная или белая ячейка. Нужно удалить строки с белыми ячейками в этом столбце. Заранее спасибо!

Добрый день, подскажите как написать макрос для скрытия и открытия (Или удаления) строк таблицы если в диапазоне ячеек [Пример:(d5:g100)] строка содержит в ячейках нули (или формулу, но отображает по формуле ноль)

Это как раз то что я так долго искал! Большое спасибо за информацию!

Помогите пожалуйста решить чуть более сложную задачу.
Есть несколько условий для удаления,
1) если значение ячейки (числовое) в столбце "Q" меньше "число" - удаляем строку
2) если значение ячейки (текстовое) в столбце "I" содержит "текст" - удаляем строку
И самое, наверное сложное:
3) если значение ячейки (текстовое) в столбце "L" встречается на листе только 1 раз и при этом значение ячейки (числовое) в столбце "Q" больше "число" - удаляем строку

И как все эти условия правильно в циклы вложить
PS В файле больше 30000 строк

Заранее спасибо! С уважением!

Большое спасибо за помощь! Работает!

День добрый !

Вот пользовался макросом который Вы посоветовали (я заменил только локацию данных):

Sub УдалениеСтрокСТремяЗначениями()
' удаляются части строк, в кторых в столбце "O" находится 0, 1 или #N/A
On Error Resume Next
Dim cell As Range, delra As Range: Application.ScreenUpdating = False

For Each cell In Range("O:O").SpecialCells(xlCellTypeConstants)
If Val(cell) = 0 Or Val(cell) = 1 Then
If delra Is Nothing Then Set delra = cell Else Set delra = Union(delra, cell)
End If
Next cell
If Not delra Is Nothing Then Intersect(delra.EntireRow, Range("M:O")).Delete
Intersect(Range("O:O").SpecialCells(xlCellTypeConstants, xlErrors).EntireRow, Range("M:O")).Delete

- но вот недавно, увеличилось число обрабатываемых данных (со 180 до 380 строк, а будет и до 10 000) и если раньше макрос удалял данные в строках с "М" по "О" если в "О" содержатся "1", "0" или "N/A" и поднимал их вверх (т.е. удалял строки) - то теперь он также удаляет данные НО стирает не строки а 2 соседних столбца справа. При возврате к меньшему кол-ву обрабатываемых ячеек/данных - всё снова работает нормально.
Решил опять к Вам обратится за помощью т.к. составные этого макроса к сожалению находятся за граню моих познаний в VBA.

Буду очень благодарен если посоветуете что-нибудь.

Скажите, пжта, если надо начать рассматривать массив начиная допустим с 15-й строки. Какие изменения претерпит макрос?

Здравствуйте !
У меня вопрос по макросу "позволяющему выполнять поиск (с последующим удалением или скрытием строк) сразу по нескольким условиям:"

Мне нужно чтоб удалялись строки со значением НОЛЬ.
Ставлю "0" и удаляются все значения в значении которого есть НОЛЬ.

Как сделать что бы такого не происходила! Сохранив при этом удаление по нескольким условиям.

А можно как-то сделать так, чтобы этот макрос всегда был включен при заходе в файл Exela и работал динамически. К примеру, если поменяются данные в ячейках C2:CI2, то сразу скроются или отобразяться ячейки согласно макросу.

Вы правы!!! Спасибо большое, он работает хорошо! У меня неполучилось потому что я буквы ставил в ячейки, если подставить цифры то все будет работать правильно :)

Sub СкрываемПустыеСтолбцы()
Dim cell As Range: Application.ScreenUpdating = False
For Each cell In [c2:ci2].Cells
' скрываем столбцы, если в ячейке ноль или пусто
cell.EntireColumn.Hidden = Val(cell) = 0
Next cell
End Sub

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

Моя задача решена. Спасибо огромное))) В целом - действовала по предложенному Вами плану))) Спасибо!)))))

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

Как бы для меня очень затруднительным получается п.3...((((

Т.е. создать бегунок по строкам (нахожу совпадение - копирую) нереально?(((((

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

Буду признательна за любую помощь.
Спасибо)

Автор помогите пожалуйста с решением данной задачи!!! Уже давно пытаюсь в интернете решить этот вопрос, никак не получается.
У меня есть таблица, которая состоит из строки (2) и столбцов (C:CI), в столбцах с помощью формул отображаются данные с числами и нулями или пустыми ячейками. Так как таблица с вводом новых значений в формулы постоянно меняет расположение пустых ячеек и нулей в данной строке (2) со столбцами (C:CI), то мне нужно автоматически скрывать все пустые ячейки или ячейки с нулями, а все ячейки с числами в строке (2), столбцы (C:CI) раскрывать. Помогите пожалуйста решить этот вопрос.

Огромное спасибо !

Теперь макрос короче и работает в два раза быстрее !

Очень признателен вам за помощь.

Большое спасибо за ответ.

Я правда не указал, что в в столбце "J" ищу 3 значения для удаления - "#N/A", "0", "1". ( Думал своим умом дойду :) ). В результате в моём полном макросе 3 раза повторяется указанный мною макрос (чтобы удалить каждое значение).
В моей таблице с "G" по "L" указано название товара, а конкретно в "L" его наличие.

С помощью вашего совета я смогу убить лишь одного из своих трёх зайцев :(

Посоветуйте пожалуйста как модернизировать макрос для постоянных величин ( например "1")

Заранее благодарен.

День добрый !

Большое спасибо Вам за ваш макрос - которым сейчас регулярно пользуюсь.

Sub УдалениеСтрокПоУсловию()
Dim ra2 As Range, delra2 As Range, MyRange2 As Range
Set MyRange2 = Range("J:J")
Poisk2 = "#N/A"
For Each ra2 In MyRange2
If Not ra2.Find(Poisk2, , xlValues, xlWhole) Is Nothing Then
If delra2 Is Nothing Then Set delra2 = ra2 Else Set delra2 = Union(delra2, ra2)
End If
Next
If Not delra2 Is Nothing Then delra2.EntireRow.Delete

End Sub

Немного приспособил его для себя: Он у меня ищет в столбце "J" все "#N/A" и удаляет их.
Подскажите пожалуйста, ка сделать так, чтобы макрос не удалял ВСЮ строку а удалял её только в указанном диапазоне, например с "G" по "L" (по всей длине) ?

Дело в том, что у меня существует исходная таблица в столбцах от "А" до "Е", (из неё в последствии формируется таблица в диапазоне с "G" по "L" (они друг напротив друга). В результате работы макрос удаляет данные в обоих таблицах, а нужно чтобы только в одной.

Перерыл уже весь Интернет но ничего путного так и не смог найти, ни на русском ни на английском. Третий день бьюсь. :)

Заранее благодарен.

Спасибо!

Доброго времени суток!
Полнейший набор макросов для всех ситуаций, спасибо!
Скажите, если строки были не удалены а свёрнуты, можно их обратно развернуть?

"ИСТИНА" тоже не удаляется, этот макрос не хочет эти два слова воспринимать как текст при любых форматах ячейки.

Извините, не знаю прошло ли моё предыдущее сообщение я его продублирую.
Точно не в регистре дело. Галочка и была отжата. С другими словами и наборами больших букв этот макрос справлялся ("ПАРИ" удалил на раз).
После замен в модуле он вообще отказывается что либо делать:
Запись"Option Compare Text" - принимать нехочет, пишет Can`t execute code in break mode.

Sub УдалениеСтрокПоУсловию()
Option Compare Text
Dim ra As Range, delra As Range
Application.ScreenUpdating = False ' отключаем обновление экрана

ТекстДляПоиска = "ПАРИ" ' удаляем строки с таким текстом

' перебираем все строки в используемом диапазоне листа
For Each ra In ActiveSheet.UsedRange.Rows
' если в строке найден искомый текст
If Not ra.Find(word, , xlValues, xlPart, , , False) Is Nothing Then
' добавляем строку в диапазон для удаления
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
' если подходящие строки найдены - удаляем их
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub

Без "Option Compare Text" с .Find(word, , xlValues, xlPart, , , False) - ругаться не ругается, но и делать тоже ничего не хочет.

Этот макрос, по удалению строки у меня не срабатывает с ячейками в которых текст "ЛОЖЬ", приходится этоти ячейки сначала перерабытывать в строчные буквы("ложь"), а потом пользоваться макросом. Подскажите, как можно исключать строки, в которых есть ячейки со значением "ЛОЖЬ" имеющим общий формат.

Огромное спасибо :-)

Привет.
Этот макрос удаляет строку при любом совпадении.
Как удалить строку если поиск ведется по значениям в разных ячейках
т.е если я ищу "Привет" и "Здравствуйте" оба значения найдены в одной строке но в разных ячейках - строку удалить !!
Заранее спасибо.

Уважаемый EducatedFool!

Спасибо Вам за ответ!

В случае циклической функции, я писал и "<>", и через IF NOT (в выложенном варианте ошибся и оставил только знак равенства) - но действительно пытался решить вопрос именно удаления строк НЕ содержащих заданных значений.

Но итог - удаляет или оставляет (в зависимости от условий) только первое условие. Почему то второе и тд условие(через OR или AND) в функции IF не учитывает. Да, или ,вообще, удаляет все строки(

Спасибо Вам за макрос, который Вы описали. Это, конечно, другой пилотаж если сравнивать с действием через цикл - долго и тд.