Расширенная фильтрация с использованием макроса.

Опубликовано: 29 Июнь 2026
на канале: Ксенія Прибильська

Код макроса:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:J5")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
End If
End Sub