【VBA】オートフィルタの条件をクリアして、全てのデータを表示する

VBAから
　・オートフィルタの条件をクリアして
　・全てのデータを表示
する方法を記載します！

前提
VBAコード
実行結果

前提

シート「sample」の以下の表に対して、
　・オートフィルタの条件をクリアして
　・全てのデータを表示
をします。

VBAコード

Sub sample()

    With Worksheets("sample")
        'オートフィルタが設定されている、かつデータが絞り込まれている場合
        If .AutoFilterMode And .FilterMode Then
            '条件をクリアして全てのデータを表示
            .ShowAllData
        End If
    End With
    
End Sub

「ShowAllData」により、
　・条件をクリアして
　・全てのデータを表示
できます。

データが絞り込まれていない状態で
　・「ShowAllData」を実行するとエラーとなるため、
　・実行前に絞り込まれていることを確認
しています。

実行結果

オートフィルタの条件がクリアされ、全てのデータが表示されました。

オートフィルタ自体は解除されません。