Excel VBAで選択範囲を一括編集

質問

Excelで選択された範囲に入力された数値を、例えば2倍するにはどのようにすればいいのでしょうか。
Selection.Value = Selection.Value * 2
のようなやり方が知りたいです。

回答No.1

ja7awu · ベストアンサー

Sub test()
Dim Rng As Range
For Each Rng In Selection
　　If IsNumeric(Rng.Value) Then Rng.Value = Rng.Value * 2
Next Rng
End Sub

お礼

ありがとうございました。
ほしかった回答そのものです。