VBA中有几种常用的方式可以给数组赋值：
直接赋值：使用数组的索引位置直接赋值，例如：array(0) = 1、array(1) = 2等。
使用循环赋值：使用For循环或者Do循环将数值逐个赋值给数组的元素。
使用Array函数赋值：使用Array函数将一组数值赋值给数组，例如：array = Array(1, 2, 3, 4, 5)。
使用Split函数赋值：使用Split函数将一个字符串按照指定的分隔符分割成多个子字符串，并将子字符串赋值给数组。
使用Range对象赋值：使用Range对象将Excel表格中的一列或者一行的数值赋值给数组。
这些方法可以根据实际情况选择适合的方式来进行数组赋值。