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

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

PR

前提

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

D列「所属部署」でデータが絞り込まれている
D列「所属部署」でデータが絞り込まれている
PR

VBAコード

Sub sample()

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

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

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

PR

実行結果

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

データの絞り込みがクリアされた
データの絞り込みがクリアされた

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

タイトルとURLをコピーしました