【VBA】可視セル(フィルタ結果)をエラー処理付きで値をクリアする方法

日々の業務で大量のデータを扱っていると、フィルタリングした結果をクリアすることがよくあります。しかし手作業では時間がかかりますし、ミスも起こりやすいです。この記事では、VBAを使って簡単に可視セルのみをクリアする方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ClearVisibleCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Application.ScreenUpdating = False
    On Error GoTo ErrorHandler
    With ws.UsedRange.SpecialCells(xlCellTypeVisible)
        .ClearContents
    End With
    MsgBox "クリアが完了しました。", vbInformation
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
End Sub

よくある質問

Q 元に戻せますか？

VBAによる変更は元に戻すことが難しいため、必ずバックアップを作成してから実行してください。

Q エラーが出たら？

ワークシート名や範囲の指定が正しいことを確認し、必要に応じてエラーハンドリングを調整してください。