ExcelVBA ワークシートに適用されているオートフィルターを解除する方法

以下のようなシーンで利用されます。

1.フィルターがかかっているシートでデータ全体を操作したい。

2.新しいフィルターを適用する前に、既存のフィルターをリセットしたい。

Option Explicit

Sub ClearFilters()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' アクティブなシートを指定

    ' フィルターが有効か確認して解除
    If ws.AutoFilterMode Then
        If ws.FilterMode Then
            ws.ShowAllData ' フィルター解除
        End If
        ws.AutoFilterMode = False ' オートフィルターモード自体を解除
    End If
    
    MsgBox "フィルターを解除しました！", vbInformation
End Sub

すべてのシートのフィルターを解除するコード

Option Explicit

Sub ClearFiltersAllSheets()
    Dim ws As Worksheet

    ' ワークブック内のすべてのシートをループ
    For Each ws In ThisWorkbook.Worksheets
        If ws.AutoFilterMode Then
            If ws.FilterMode Then
                ws.ShowAllData ' フィルター解除
            End If
            ws.AutoFilterMode = False ' オートフィルターモード解除
        End If
    Next ws
    
    MsgBox "すべてのシートのフィルターを解除しました！", vbInformation
End Sub

シート保護を解除（パスワードが必要な場合）

If ws.ProtectContents Then
    ws.Unprotect "パスワード" 
End If

フィルター解除後に、条件を設定して新しいフィルターを適用できます。フィルター解除が遅い場合、画面更新を停止すると改善します（Application.ScreenUpdating = False）。これらを活用すれば、効率的にデータ操作が可能になります。