VBA中String/Variant数组声明括号规则及赋值问题咨询

VBA中声明数组时的括号使用规则，核心来自Variant可变类型与强类型数组的底层逻辑差异，以下结合4个测试场景逐一说明： #

测试场景复现与解释 #

场景1：Variant类型不带括号，可正常运行 #

代码如下：

Dim str
str = "The quick fox"
Dim Pieces As Variant
Pieces = Split(str)
MsgBox(Pieces(1)) 

运行输出：quick
逻辑说明：Dim Pieces As Variant声明的是通用可变类型变量，本身是可以存储任意值的容器，单个值、对象、任意类型的数组都可以存入。Split()函数的返回值是String类型数组（即String()），可以直接存入Variant变量，存入后Variant会自动识别内部存储的是数组，支持索引访问元素，因此运行正常。 #

场景2：Variant类型带括号，运行报类型不匹配 #

代码如下：

Dim str
str = "The quick fox"
Dim Pieces() As Variant
Pieces = Split(str)
MsgBox(Pieces(1)) 

报错信息：Type mismatch（类型不匹配）
逻辑说明：Dim Pieces() As Variant声明的不是通用Variant变量，而是元素类型为Variant的强类型数组。注意VBA中数组本身也有类型区分：Variant()（元素为Variant的数组）和String()（元素为String的数组）是完全不同的数组类型，不支持直接用等号整体跨类型赋值，因此把Split返回的String数组直接赋值给Variant类型数组时，会触发类型不匹配错误。
如果要把Split返回的结果存入这个Variant数组，需要先通过ReDim调整数组长度，再遍历逐个拷贝元素，不能直接整体赋值。 #

场景3：String类型带括号，可正常运行 #

代码如下：

Dim str
str = "The quick fox"
Dim Pieces() As String
Pieces = Split(str)
MsgBox(Pieces(1)) 

运行输出：quick
逻辑说明：Dim Pieces() As String声明的是元素类型为String的动态数组，而Split()返回的正好是String()类型数组，两者类型完全匹配。VBA中同元素类型的动态数组支持直接用等号整体赋值，赋值时会自动将等号右侧数组的维度、长度、所有元素内容绑定到左侧动态数组上，不需要手动调用ReDim。
ReDim仅在需要手动定义数组结构、调整已有数组长度时使用，当等号右侧是已经初始化完成的同类型数组时，不需要额外ReDim。 #

场景4：String类型不带括号，编译报错 #

代码如下：

Dim str
str = "The quick fox"
Dim Pieces As String
Pieces = Split(str)
MsgBox(Pieces(1)) 

报错信息：expected array（要求提供数组）
逻辑说明：Dim Pieces As String声明的是单个字符串变量，不是数组类型，无法接收Split返回的数组值，因此编译阶段直接报错。 #

规则总结 #

• 若要使用Variant接收数组，不要加括号：加括号后会变成元素为Variant的强类型数组，无法直接接收其他元素类型的数组；不加括号的通用Variant变量可以存储任意类型的数组。
• 若要声明指定元素类型的数组（如String、Long等），必须加括号：不加括号就是对应类型的单个值变量，无法接收数组。
• 同类型动态数组可以直接接收同类型的数组返回值，无需提前ReDim，只要等号右侧是已初始化完成的同类型数组即可。

内容的提问来源于stack exchange，提问作者JimminyJim