エクセルのマクロ

質問

選択状態にあるセル(どのセルも一文字のみ入力されている)に"●"以外が入力されていたら、全て消去する。
上記を実行するマクロとして以下を試してみましたが、うまくいきません。どこがおかしいのでしょうか？

Sub test()
　For Each cell In Selection
　　If Selection.Value <> "●" Then
　　Selection.ClearContents
　　End If
　Next
End Sub

回答No.1

bonaron · ベストアンサー

Sub test()
　Dim rng As Range
　For Each rng In Selection
　　If rng.Value <> "●" Then
　　　rng.ClearContents
　　End If
　Next
End Sub

ノーチェックですが。

お礼

ありがとうございました。

回答No.2

hana-hana3

For Each cell In Selection
　　If cell.Value <> "●" Then
　　cell.ClearContents
　　End If
　Next

お礼

ありがとうございました。