Как удалить строку, а не скрыть ее?

Question

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

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

По сути, у меня есть каталог Хью на отдельном рабочем листе, и если пользователь говорит «да», это должно быть показано, а если нет, если оно пустое (но со значением), оно должно быть удалено. Вижу, что очень простой скрипт, который у меня работает, отлично работает, но я должен удалить, а не скрыть. Похоже, что FullRow.delete - это что-то за пределами меня, так как оно порождает много проблем, когда скрытие работало так гладко.

При использовании многих других сценариев все они действительно не могут упростить ответ, и 99% фактически относятся к одному рабочему листу и диапазону, а не к конкретному рабочему листу и определенным столбцам, т. Е. E: E (сценарий сценария ниже показывает больше). Я использую стол тоже, так что это немного по-другому.

For a = 2 To 150
    If Worksheets("Requirements").Cells(a, 5).Value = "High" Then
        Worksheets("Requirements").Rows(a).Hidden = True
    End If
Next

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

Большое спасибо заранее

Answer 1

Рассмотрим:

Sub sjdhfs()
    For a = 150 To 2 Step -1
        If Worksheets("Requirements").Cells(a, 5).Value = "High" Then
            Worksheets("Requirements").Cells(a, 5).EntireRow.Delete
        End If
    Next a
End Sub

Обратите внимание, что мы запускаем цикл от низ до верх .