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

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

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

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

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

2018/02/20 09:42

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

行動規範の内容に同意します

回答4件

ベストアンサー

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

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

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

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

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

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

投稿2018/02/20 11:32

総合スコア34367

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

投稿2018/02/20 09:22

総合スコア28675

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

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

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

投稿2018/02/20 10:08

総合スコア17002

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

投稿2018/02/20 09:58

総合スコア59

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.29%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる