ワークシート内の指定された範囲のデータを削除する

はじめに

Excel VBAでワークシート名を配列にして、指定された範囲のデータをシートごとに削除するマクロを開発しました。

ソースコード

ソースコードは以下の通りです。

Option Explicit
'各シートのデータを一括削除する
Sub DataClear_Click()
    'シート名配列の取得
    Dim SheetName() As Variant
    SheetName = Array("乃木坂46", "櫻坂46", "日向坂46")
    
    Dim wb As Workbook
    Set wb = Workbooks("坂道データ.xlsm")
    
    Dim ws As Worksheet
    Dim sh_name As Variant
    
    '各シート名を配列から取得してし、指定されたデータの削除
    For Each sh_name In SheetName
        Set ws = Worksheets(sh_name)
        ws.Range("B6:C8").ClearContents
    Next

End Sub

実行前のデータ

マクロ実行前のデータは下記の通りです

乃木坂46シート

櫻坂46シート

日向坂46シート

実行後のデータ

マクロ実行後のデータは下記の通りです

乃木坂46シート

櫻坂46シート

日向坂46シート

最後に

面倒なデータ削除に是非ご活用ください。