Excelマクロ初心者向け: 複数セルを選択して消去する方法

Excelマクロを使用して、セルの値を消去する操作を自動化することは非常に便利ですが、特定の範囲をドラッグして選択して消去する場合には、少し工夫が必要です。今回は、選択したセルや範囲を消去するための方法を解説します。

1. 現在のマクロの問題点
2. 複数セルをドラッグして選択し消去する方法
3. 複数の列の値を一度に消去する方法
4. まとめ

1. 現在のマクロの問題点

質問者様が提供しているコードでは、個別のセルを選んで消去することはできますが、範囲を選択して消去することができません。このような場合、Excelマクロでは通常、複数のセルを一度に処理するための`Range`オブジェクトを使用します。

2. 複数セルをドラッグして選択し消去する方法

まず、セルを複数選択して消去したい場合、`Intersect`メソッドを使って、選択された範囲に対応する処理を記述します。`ClearContents`メソッドを使うことで、選択したセルの内容を消去することができます。

Sub ClearMultipleCells()
    Dim Target As Range
    Set Target = Selection
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        Target.ClearContents '選択した範囲の内容を消去
    End If
End Sub

このコードでは、`Selection`を使って選択された範囲全体を対象にして、その範囲の内容を消去しています。

3. 複数の列の値を一度に消去する方法

もし、複数の列を同時に消去したい場合は、`Range`を使って範囲を指定する方法を使います。たとえば、`C列`を選んだ場合、`I`列と`J`列の値も一緒に消去することができます。

Sub ClearColumns()
    Dim ThisRow As Long
    ThisRow = ActiveCell.Row '現在の行を取得
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        Range("I" & ThisRow & ":J" & ThisRow).ClearContents 'I列とJ列の値を消去
    End If
End Sub

これにより、選択したセルとその行に対応する他のセルを一度に消去することができます。