【Excel VBA】対象範囲をクリアする

Excel VBAで対象範囲をクリアする

Excelで入力する部分と関数で自動で計算するところを決めて一覧表を作ったりすることがあります。
その一覧表を使い回すときに、都度入力する部分をクリアするかと思います。
そんなときは、VBAマクロで簡単にクリアすることができます。

Excel VBA サンプルコード１

Sub HANICLEAR１()

    Dim strSheetNam As String
    
    Dim intStartrow As Integer
    Dim intEndrow As Integer
    Dim intStartclm As Integer
    Dim intEndclm as Integer
    
    intStartrow = 4     ' 開始行の指定（この場合4行目から）
    intEndrow = 100   ' 最終行の指定（この場合100行目まで）
    
    intStartclm = 2    ' 開始列の指定（この場合B列から）
    intEndclm = 5      ' 最終列の指定（この場合D列まで）
    
    strSheetNam = ActiveSheet.name

    Worksheets(strSheetNam).Range(Cells(intStartrow, intStartclm), Cells(intEndrow, intEndclm)).ClearContents

End Sub

解説

「Range（）」と「Cells（）」を組み合わせて
上記の開始行、最終行と開始列、最終列の範囲を指定しています。
列の指定方法もA列→１、B列→２・・・のように数字で指定します。
そして「.ClearContents」でセルの値をクリアできます。

さらに入力する行や列がその時折で変化する場合も
以下のサンプルコードで対応することができます。

Excel VBA サンプルコード２

Sub HANICLEAR２()

    Dim strSheetNam As String
    
    Dim intStartrow As Integer
    Dim intEndrow As Integer
    Dim intStartclm As Integer
    Dim intEndclm as Integer
    Dim intMaxrow As Integer
    
    intStartrow = 4     ' 開始行の指定（この場合4行目から）

    '最終行の決定
    MaxRow = Range("A4").End(xlDown).Row
    intEndrow = MaxRow
    
    intStartclm = 2    ' 開始列の指定（この場合B列から）
    intEndclm = 5      ' 最終列の指定（この場合D列まで）
    
    strSheetNam = ActiveSheet.name

    Worksheets(strSheetNam).Range(Cells(intStartrow, intStartclm), Cells(intEndrow, intEndclm)).ClearContents

End Sub