Arrays 无法在VBA中初始化数组的值

我还是VBA新手。代码如下：

Sub Macro1()
Dim NumberSeq() As Integer = {1,2,3,4}
End Sub

这只是一个数组的初始化，我看到它可以为其他数组工作。但我总是得到警告窗口：编译错误：预期：语句结尾，高亮显示在等号“=”

我不知道这里发生了什么。请多多指教，谢谢

Sub macro1()
Dim NumberSeq() As Variant

NumberSeq = Array(1, 2, 3, 4) 'an allocated array with length 1 to 4

'check output through print
For i = LBound(NumberSeq) To UBound(NumberSeq)
    msg = msg & NumberSeq(i) & vbNewLine
Next i
MsgBox (msg)

End Sub

对于隐式大小的二维数组，请使用数组（行开始到行结束，列开始到列结束）

---

这是一个很好的例子。

VBA不支持一行声明和赋值。最接近的可能是

Dim a（）：a=[{1,2,3}]

-但请注意，这是一个变量数组，不是整数数组。非常感谢您的帮助！它起作用了！似乎没有“As Variant”也能起作用。谢谢分享网站资源：）没问题！那里有很多很棒的信息。如果我回答了您的问题，请单击我答案旁边的复选标记，谢谢！