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

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

前提
VBAコード
実行結果

前提

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

VBAコード

Sub sample()

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

「ShowAllData」により、
　・条件をクリアして
　・全てのデータを表示
することが出来ます。

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

実行結果

オートフィルタの条件をクリアして、全てのデータを表示できました。

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