Excel 자동 필터를 VBA로 조금 편리하게

사용법

코드

Option Explicit

Private Sub Workbook_Open()
    Application.OnKey "{END}", "ThisWorkbook.FilterOnOff"
End Sub

Sub FilterOnOff()
    Dim a As AutoFilter, c As Long, v As String
    With ActiveCell
        Set a = .Parent.AutoFilter
        If a Is Nothing Then Exit Sub
        c = .Column - a.Range.Column + 1
        If c < 1 Or a.Filters.Count < c Then Exit Sub
        v = "*" & .Value & "*"
    End With
    With a
        If .Filters(c).On Then
            .Range.AutoFilter c
        Else
            .Range.AutoFilter c, v
        End If
    End With
End Sub