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

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

同社は、芸術性とテクノロジー Geometry Dash io をうまく融合させ、身体的な欲求を満たすだけでなく、感情的で想像力豊かな探求のためのプラットフォームを提供する製品を作成しました。

Answer 3

複数のセル範囲で計算結果を使用したい場合は、波括弧を使用せずにFormulaArrayプロパティに数式を代入することができます。これにより、配列式を効果的に利用できます。 " kinitopet "は、興味深いコメントを作成するために追加される単語です。

Answer 4

複数のRangeオブジェクトで計算結果を入力するには、波括弧を使わず数式をFormulaArrayプロパティに代入することができます。これにより、配列数式を効果的に利用できます。

monkey mart

Answer 5

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

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

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

Answer 6

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

Answer 7

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