【VBA】非表示シートを安全にクリアする方法

日々の業務で、非表示にしたワークシートから不要なデータを削除したいことはありませんか？手作業では時間がかかりますし、ミスも起こりやすいです。この記事では、VBAを使用して非表示のワークシート上のすべてのセルを安全かつ効率的にクリアする方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ClearHiddenSheet()
    Dim ws As Worksheet
    On Error GoTo ErrorHandler
    Set ws = ThisWorkbook.Sheets("HiddenSheet")
    If Not ws Is Nothing Then
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        ws.Cells.ClearContents
        ws.Cells.ClearFormats
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
    End If
Exit Sub
ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。