![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAから
・オートフィルタの条件をクリアして
・全てのデータを表示
する方法を記載します!
前提
シート「sample」の以下の表に対して、
・オートフィルタの条件をクリアして
・全てのデータを表示
をします。
![D列「所属部署」でデータが絞り込まれている](https://excel-vba.work/wp-content/uploads/2021/02/vba_showalldata_001.png)
VBAコード
Sub sample()
With Worksheets("sample")
'オートフィルタが設定されている、かつデータが絞り込まれている場合
If .AutoFilterMode And .FilterMode Then
'条件をクリアして全てのデータを表示
.ShowAllData
End If
End With
End Sub
実行結果
オートフィルタの条件がクリアされ、全てのデータが表示されました。
![データの絞り込みがクリアされた](https://excel-vba.work/wp-content/uploads/2021/02/vba_showalldata_002.png)