Удаление скрытых столбцов после фильтрации.

[Garrison]

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

[motorway]

Так попробуйте:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False


LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
For i = 1 To LastRow

 
    If (Rows(i).EntireRow.Hidden = True) Then

Rows(i).Delete
i = i - 1
End If


Next i



Application.EnableEvents = True

End Sub

[Garrison]

motorway
Спасибо, то что надо.

[vv66]

motorway
Подключил ваш макрос к своему, который формирует у меня отчёт, доволен, работает четко. Один минус есть: при большем количестве строк работа макроса затягивается. Вопрос: можно ли каким-то методом увеличить скорость переборки строк?

[SAS888]

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

Private Sub Worksheet_Calculate()
    Dim i As Long: Application.ScreenUpdating = False
    For i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        If Rows(i).Hidden Then Rows(i).Delete
    Next
End Sub

Пример использования во вложении.

[vv66]

Пример что-то не скачивается...
Да, в моём файле формул хватает.
Но пробовал вставить ваш последний макрос, результат тот же, секуда в секунду.

[vv66]

Блин, лоханулся...
Прошу прощения, всё-таки быстрее.
Спасибо!

[vv66]

motorway

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