=A2&""

Sub Одновременный_фильтр_на_нескольких_листах_книги()
    Dim sh As Worksheet, r As Range, j&
    For Each sh In ThisWorkbook.Worksheets
        If sh.Visible <> xlSheetHidden Then

            For j = 1 To 10
                If sh.Cells(1, j) = "ИНН" Then
                    With Intersect(sh.UsedRange, sh.Columns(j))
                        .TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
                           TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                           Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                        :=Array(1, 2), TrailingMinusNumbers:=True
                    End With
                    Exit For
                End If
            Next
        End If
    Next
End Sub

            If Sheets(i).Cells(1, j) = "ИНН" Then
                'если существует стобец "ИНН", то задаем фильтрацию по значению переменной FILTRSTRING
                Sheets(i).Cells(1, j).AutoFilter j, "=*" & FILTRSTRING & "*"
                Exit For
            End If

     If Sheets(i).Visible = -1 Then

Sub Снятие_одновременной_фильрации()
'
' Снятие_одновременной_фильрации Макрос
'
' Сочетание клавиш: Ctrl+w
'
'для снятие фильтрации на всех листах книги
'начало нужного кода (снятие фильтров)
Dim i&, J&
Dim nam As Integer
nam = Excel.ActiveSheet.Index
Application.ScreenUpdating = False
For i = 1 To Excel.Sheets.Count
    If Excel.Sheets.Item(i).Visible <> xlSheetHidden Then
        Excel.Sheets.Item(i).Select
        For J = 1 To 10
            If Excel.Sheets.Item(i).Cells(1, J) = "ИНН" Then
                Excel.Sheets.Item(i).Cells(1, J).Select
                Excel.Sheets.Item(i).Cells(1, J).AutoFilter Field:=J
                Selection.AutoFilter
            End If
        Next J
    End If
    Next i
    Excel.Sheets.Item(nam).Select
    Application.ScreenUpdating = True
    'конец кода
End Sub

Sub мяу()
    Dim sh As Worksheet, ar, arkey, a
    Dim i&, j&
    a = Array(48953, 320)
    Set sh = Sheets(1)
    If sh.AutoFilterMode Then
        With sh.AutoFilter
            ar = .Range.Columns(1).Value
            With CreateObject("Scripting.Dictionary")
                For i = LBound(ar) To UBound(ar)
                    For j = LBound(a) To UBound(a)
                        If InStr(CStr(ar(i, 1)), CStr(a(j))) Then .Item(CStr(ar(i, 1))) = 1
                    Next
                Next
                arkey = .keys
            End With
            .Range.AutoFilter Field:=1, Criteria1:=arkey, Operator:=xlFilterValues
        End With
    End If
End Sub