Excel VBA で選択した複数のセルにデータ・数式を（Ctrl+Enter のように）一気に入力する方法

【本日のミッション】

Excel 操作 Ctrl+Enter で複数のセルにデータを一気に入れるように、Excel VBA で複数のセルにデータや数式を一気に入力せよ。

ミッションの概要

Excel操作で、選択した複数のセルに同じ数式を入力するときには、［Ctrl＋Enter］を使用します。（下記「Excel操作［Ctrl＋Enter］で一気に値・数式を入力する」参照）

この操作と同じように、Excel VBAで選択した複数のセルに一気に数式を入力するのが、今回のミッションです。

入力する数式は、第1四半期～第4四半期の合計。
数式の参照先は、相対参照としてそれぞれのセルにあった数式に変更されていること。

■■■スポンサーリンク■■■

Sub 数式を一気に入れる()
    Range("B5:D5,B9:D9,B13:D13,B17:D17") = "=SUM(B2:B4)"
End Sub

記入したプロシージャ（Sub～End Subまで）のどこかにカーソルを置いてF5キーをクリックしてください。

Excelのシートを見てください。

指定したセル全てに、相対参照で数式が入力されましたね。

Excelでは複数のセルを選択した状態で、同じ値や数式を相対参照で一気に入力することができます。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

左辺には数式を入れるセルを、右辺には数式を指定します。

Range("B5:D5,B9:D9,B13:D13,B17:D17") = "=SUM(B2:B4)"

指定した複数セルのうち、一番目のセル「B5」に入力する数式にします。

数式の列や行を固定する場合は、「$」を使って絶対参照にします。

例："=SUM(B2:B4)*$G$2"

数式で「””」ダブルクォーテーションを使用する場合は、「””」ダブルクォーテーションを「””」ダブルクォーテーションで囲む必要があります。

Range("B5:D5,B9:D9,B13:D13,B17:D17") = "=IFERROR(SUM(B2:B4),"""")"

マクロで「””””」としている部分も、きちんと「””」になります。

■■■スポンサーリンク■■■