【VBA】特定の名前のシートを完全一致で値をクリアする方法

日々の業務で大量のデータを扱う際に、特定のシートのデータを一括でクリアしたいことはありませんか？手作業では時間がかかりますが、VBAを使用すれば瞬時に処理が完了します。この記事では、指定したシート名と完全一致するシートの値をすべてクリアする方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ClearSheetValues()
    Dim ws As Worksheet, lastRow As Long, i As Long
    ' クリア対象のシート名を指定
    Const TARGET_SHEET_NAME = "データシート"
    
    Application.ScreenUpdating = False ' 画面更新を停止して高速化
    On Error GoTo ErrorHandler ' エラー処理
    Set ws = ThisWorkbook.Sheets(TARGET_SHEET_NAME)
    If Not ws Is Nothing Then ' 対象のシートが存在する場合
        With ws
            lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' 最終行を取得
            For i = 1 To lastRow ' 各セルの値をクリア
                .Cells(i, 1).ClearContents
            Next i
        End With
    Else
        MsgBox "指定したシート名が見つかりません。", vbExclamation
    End If
    
ErrorHandler:
    Application.ScreenUpdating = True ' 画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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