엑셀 vba 선택셀 값으로 필터하기 전체보기

Sub 필터적용셀선택()
    ' Ctrl + Shift + F 단축키는 적용해야 작동
    Dim col As Integer
    col = ActiveCell.Column ' 현재 선택한 셀의 열 번호 저장
    ActiveSheet.UsedRange.AutoFilter Field:=col, Criteria1:=ActiveCell.Value
End Sub

Sub 전체보기()
' Ctrl + Shift + A 단축키는 적용해야 작동
    Dim c As Range

    On Error Resume Next
    
    Set c = ActiveCell

    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
    
    ' 기존 선택한 셀 유지
    c.Select
End Sub