Question

VBA中关于数组及赋值的问题

本人菜鸟一枚，为何单元格区域[A1:H1]中没有被赋上值啊？代码如下：Sub 数组赋值()Dim A(), B(), C(), D(), ArrA()A = [{1,2}]B = [{2,3}]C = [{3,4}]D = [{4,5}]ArrA = Array(A, B, C, D)[A1:H1] = ArrAEnd Sub运行结果见截图
代码重新整理为：
Sub 数组赋值()
Dim A(), B(), C(), D(), ArrA()
A = [{1,2}]
B = [{2,3}]
C = [{3,4}]
D = [{4,5}]
ArrA = Array(A, B, C, D)
[A1:H1] = ArrA
End Sub

Answer 1

VBA数组赋值方式：

• 字符串数组的定义：

  Dim arr(1 to 3) as string

  如此定义，但是不能直接给数组赋值

• 如果想直接给数组直接赋值，需要如下操作：

  Dim arr() as Variant

  arr=Array("a","b","c")

• 赋值格式：

  例如，给变量a赋值一个数为12，则格式为：a = 12 [注意：变量（即a）只能是一字母，而赋予的值可以是一个式子，当它是式子时，a的值就是这个式子的结果。