Excel 2013 удаляет строки с определенным текстом, не оставляя пустых строк - PullRequest
0 голосов
/ 24 мая 2018

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

Я предполагаю, что для этого вида автоматизации требуется VBA, но, поскольку я не являюсь штатным программистом, я не знаю, как вообще начать решать эту проблему.

Спасибо за все ответы заранее!

1 Ответ

0 голосов
/ 24 мая 2018

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

Sub ClearThatOut()
Dim rCell As Range

restart:

For Each rCell In Intersect(Columns("A"), ActiveSheet.UsedRange).Cells
    If UCase(rCell.Value2) = "NULL" Then
        rCell.EntireRow.Delete
        GoTo restart
    End If

    'Example of secondary text, you could put as many of these as needed.
    If UCase(rCell.Value2) = "OH NO!" Then
        rCell.EntireRow.Delete
        GoTo restart
    End If

Next rCell

End Sub
...