在VBA中，可以使用數組來一次給多個單元格賦值。
首先，定義一個數組，用于存儲要賦給單元格的值。例如，假設要給A1、B1、C1三個單元格賦值，可以定義一個包含這三個值的數組：
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三個單元格將被賦上對應的值。
注意，數組的索引要與要賦值的單元格的數量相匹配，否則會出現錯誤。
