複数のセルに一度に値を設定するVBA

VBAでは、配列を使用してまとめて複数のセルに値を設定できます。

まず、セルに代入する値を格納するための配列を定義する。例えば、A1、B1、C1の3つのセルに値を代入する場合、この3つの値を含む配列を定義すればよい。

Dim arrValues(1 To 3) As Variant
arrValues(1) = "Value 1"
arrValues(2) = "Value 2"
arrValues(3) = "Value 3"

例えば、RangeオブジェクトのValueプロパティを使用すると、配列の値を一度に複数のセルに代入することができます。

Range("A1:C1").Value = arrValues

これにより、セルA1、B1、C1に対して、対応する値が設定されました。

注意、配列のインデックスは代入するセルの数と一致させること。さもないとエラーが発生します。