Есть следующая конструкция:
В текущем варианте макрос фильтруетcя по выделенным значениям. А необходимо чтобы он эти значения исключал. Прошу помочь.
Код |
---|
Sub AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA() Dim cl As Range, rng As Range, filterValues() As Variant Set rng = Selection.SpecialCells(xlCellTypeVisible) ReDim filterValues(1 To rng.Count) i = 0 For Each cl In rng i = i + 1 filterValues(i) = cl.Text Next cl Range("A1").AutoFilter Field:=3, Criteria1:=filterValues, Operator:=xlFilterValues End Sub |
В текущем варианте макрос фильтруетcя по выделенным значениям. А необходимо чтобы он эти значения исключал. Прошу помочь.