удалить строку если значение в ячейке равно Х

[SVGuss]

Это можно сделать? Скажем, есть табличка
.| А. B. C
1| 3 5 67
2| 5 5 0
3| 3 5 3

Если значение в какой-нибудь ячейке столбца С равно, например, нулю, то автоматически удаляется соответствующая строка целиком, в данном случае, строка 2.

[VictorM]

Посмотрите вот это Удаление всех пустых строк в таблице
Можно указать свое условие на удаление строки.

[SVGuss]

Сообщение от VictorM

Посмотрите вот это Удаление всех пустых строк в таблице
Можно указать свое условие на удаление строки.

Спасибо!!!

[R Dmitry]

Рецепт от ZVI
http://www.planetaexcel.ru/forum.php?thread_id=26246

[SVGuss]

Сообщение от R Dmitry

Рецепт от ZVI
http://www.planetaexcel.ru/forum.php?thread_id=26246

Спасибо, попробую и это

[SAS888]

В подобных случаях, когда нужно удалить (оставить) строки с конкретным значением в столбце, вовсе не обязательно использовать перебор ячеек этого столбца. Все предложенные примеры именно так и делают.
Для решения данной задачи, можно обойтись вообще без циклов. Например, удалить строки, в столбце "C" которых значение равно "3", можно так:

Sub Main()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = [C:C].Find(3, , , xlWhole)
    If Not x Is Nothing Then
        [C:C].ColumnDifferences(x).EntireRow.Hidden = True
        ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        Rows.Hidden = False
    End If
End Sub

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

[drew_f]

Сообщение от SAS888

В подобных случаях, когда нужно удалить (оставить) строки с конкретным значением в столбце, вовсе не обязательно использовать перебор ячеек этого столбца. Все предложенные примеры именно так и делают.
Для решения данной задачи, можно обойтись вообще без циклов. Например, удалить строки, в столбце "C" которых значение равно "3", можно так:

Sub Main()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = [C:C].Find(3, , , xlWhole)
    If Not x Is Nothing Then
        [C:C].ColumnDifferences(x).EntireRow.Hidden = True
        ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        Rows.Hidden = False
    End If
End Sub

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

SAS888, а не подскажете следующее: в Вашем примере удаляются строки, где в столбце С имеется значение 3, а в моем случае эта "тройка" является результатом вычислений по формуле и при запуске макроса строки не удаляются. Как подправить код, чтобы все заработало?

[SAS888]

...в моем случае эта "тройка" является результатом вычислений по формуле и при запуске макроса строки не удаляются.

Если метод Find можно "заставить" искать значения, полученные в результате вычислений формул (опция LookIn), то метод ColumnDifferences для этой задачи неприемлем.
Поэтому, можно воспользоваться вторым предложенным способом (используя автофильтр). Например, так:

Sub DelRows1()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = Intersect(ActiveSheet.UsedRange, [C:C])
    [C:C].AutoFilter Field:=1, Criteria1:="3"
    x.Offset(1).Resize(x.Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    [C:C].AutoFilter
End Sub

Также, можно применить следующий вариант:

Sub DelRows2()
    Dim x As Range, y As Range, fst As String
    Set x = [C:C].Find(3, , xlValues, xlWhole)
    If Not x Is Nothing Then
        fst = x.Address
        Do
            If y Is Nothing Then Set y = x Else Set y = Union(y, x)
            Set x = [C:C].FindNext(x)
        Loop While fst <> x.Address
        y.EntireRow.Delete
    End If
End Sub

[drew_f]

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

(Напрасно я дуру валял на уроках информатики в школе, глупых бы вопросов теперь не задавал...)

[Alexbr-vl]

Уважаемые , добрый день!
ничего не смыслю в VBA. Помогите решить задачу. Макрос предложенный в этой теме:

Sub DelRows1()
Dim x As Range: Application.ScreenUpdating = False
Set x = Intersect(ActiveSheet.UsedRange, [C:C])
[C:C].AutoFilter Field:=1, Criteria1:="3"
x.Offset(1).Resize(x.Rows.Count).Sp ecialCells(xlCellTypeVisible).Entir eRow.Delete
[C:C].AutoFilter
End Sub

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