[엑셀] 자동필터 전체 한방에 해제하기

자동필터를 푸는 단축키는 ALT → A → C 이다. 사실 오피스 프로그램의 연속으로 키를 누르는 단축키는 몇년이 지나도 익숙해 지지 않는다.

 

 

 

VBA로 버튼을 만들어 두면 나름 편하게 써먹을 수 있다. 특히, 여러 열에서 필터를 걸어놨을 때 유용하다. 물론, 리본메뉴를 찾아 누르는 과정과 크게 다르지 않을지 모른다.

 

Sub clearFilter()

  ' [with Table] Does not work where active cell is out of Tables.

 

  On Error Resume Next

    ActiveSheet.ShowAllData

  On Error GoTo Err_Check

Err_Check:

    If Err.Number <> 0 Then

        MsgBox "오류번호 : " & Err.Number & vbCr & _

        "오류내용 : " & Err.Description, vbCritical, "오류"

    End If

 

End Sub

 

 

자동필터를 자주 사용한다면 한번 고려해볼법하다.