指定範囲に一気に掛け算する

Question

G5からI23に数値が入っています。
ここの範囲に一気に(-2)をかけたいのですが、

Workbooks(fileA).Worksheets(sheet1).Range("G5:I23")*(-2)

としてもダメでした。
セル1つ1つにかけるならforなどの方法は重いつきますが、範囲に一気に
かけるにはどうすればよいでしょうか？

よろしくお願い致します。

Comments

[ttyp03]

ループで回すのがダメな理由は？

Answer 1

Evaluateを使えばどうでしょうか。

With Workbooks(fileA).Worksheets(sheet1)
    .Range("G5:I23").Value = .Evaluate("G5:I23*-2")
End With

Worksheet.Evaluate メソッド (Excel)

下記のように簡略に記述することもできます。

With Workbooks(fileA).Worksheets(sheet1)
    .Range("G5:I23").Value = .[G5:I23*-2]
End With

また、Forループを使った場合は、

Dim r As Range
For Each r In Workbooks(fileA).Worksheets(sheet1).Range("G5:I23")
    v.Value = v.Value * -2
Next

Answer 2

貼り付けるときに乗算指定ができるので、それを利用するのはいかがでしょうか。
ただし-2のデータがセル上に必要なので、一時的にワークシートを作成するなどの処理が必要です。

Range("L5:N123").Copy         ' この領域は-2で埋めてある
Range("G5:I123").PasteSpecial Operation:=xlMultiply ' 乗算で貼り付け

もしくはクリップボードを操作すればワークシートは不要かもしれません。

Answer 3

計算結果を入力したい複数のRangeオブジェクトのFormulaArrayプロパティに波括弧を使わず数式を代入することで配列数式を使用することが可能です

Answer 4

まず G5:I23 と同じ大きさの範囲を空いたところ(例えば G25:I43)で選択します。
そこに次のように書きます。
=G5:I23*-2
Ctrl+Shift+Enter を押します。