【VBA】セルを選択して削除するをVBAで自動化してみる #Excel

せっかく作ったのでまとめてみました。

下のような表のデータ値を削除したいときに便利なVBA。

Selectしたセル基準に範囲選択するときは、

Sub sample01()

    'セルの選択
    Range("B3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xltodown)).Select

    '文字列の初期化
    Selection.ClearContents
    Range("B3").Select

End Sub

削除対象のセルが固定されているときは、

Sub sample02()

    'セルの選択
    Range("B3:D12").Select

    '文字列の初期化
    Selection.ClearContents
    Range("B3").Select

End Sub