在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三个单元格将被赋上对应的值。
注意，数组的索引要与要赋值的单元格的数量相匹配，否则会出现错误。
