🍇

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

2024/03/07に公開

マクロ

excelvba

tech

はじめに

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