【VBA】フィルターをクリアする

サンプルプログラム概要

・指定シート上のフィルターが絞られている場合、クリアする
・絞られていない場合は何もしない

↓果物列が「みかん」で絞られている

サンプルプログラム

'変数の宣言を必須
Option Explicit

Sub sample()
    'フィルターをクリアする
    Call clearFilter("サンプルシート")
End Sub


'#########################################
'フィルターをクリアする
'#########################################
Function clearFilter(sheetName As String)
    If Worksheets(sheetName).FilterMode Then
        Worksheets(sheetName).ShowAllData
    End If  
End Function

結果

フィルターがクリアされた