Excel: удалить несколько строк, если COLUMN равно VALUE - PullRequest
2 голосов
/ 09 июня 2011

Существует ли макрос, о котором кто-то знает или мог бы написать, который бы проверял все строки документа и удалял все строки, которые имеют хотя бы одно из следующих условий:

  • Столбец F = 0
  • Столбец N = 0
  • Столбец AT = ЛОЖЬ
  • Столбец AU = ЛОЖЬ
  • Колонка AV = Продано
  • Колонка Z = постановка

Спасибо.

Ответы [ 2 ]

3 голосов
/ 09 июня 2011
Sub RemoveRows()
    Application.ScreenUpdating = False
    Dim r As Long
    For r = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To ActiveSheet.UsedRange.Row Step -1
        If Cells(r, 6) = 0 Or Cells(r, 14) = 0 _
            Or Cells(r, 46) = False Or Cells(r, 47) = False _
                Or Cells(r, 48) = "Sold" Or Cells(r, 26) = "staged" _
                    Then Cells(r, 1).EntireRow.Delete
    Next r
End Sub
0 голосов
/ 09 июня 2011

Вы могли бы сделать это с таблицей (и не нужен макрос). Выделите все свои данные, перейдите в меню вставки и щелкните таблицу (слева). Используйте выпадающие списки в верхней части столбцов, чтобы выбрать фильтры данных.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...