VBA中是否可借助Array函数快速创建二维整数数组？

语法错误原因 #

你之前用分号分隔行的写法MyArr = Array(1, 2, 3; 4, 5, 6)报错，核心是VBA原生Array()函数仅支持创建一维数组，参数分隔符只能为逗号，分号不属于合法参数分隔符，因此触发语法错误。

无需循环的单行实现方案 #

方案1：使用Evaluate函数（最贴合你预期的语法） #

该方案完全支持你想要的「分号分隔行、逗号分隔列」的书写逻辑，只需将数组结构写在字符串中传入Evaluate即可，通用语法：

' n行m列常量二维数组写法
MyArr = Evaluate("[{第1行元素1,元素2,...元素m;第2行元素1,元素2,...元素m;...第n行元素1,元素2,...元素m}]")

如果要快速创建6行4列的整数数组，直接按规则填写元素即可，示例（元素为1到24依次排列）：

MyArr = Evaluate("[{1,2,3,4;5,6,7,8;9,10,11,12;13,14,15,16;17,18,19,20;21,22,23,24}]")

该方法返回的二维数组下标默认从1开始，直接通过MyArr(行号, 列号)即可访问元素，全程无需编写循环。

方案2：嵌套Array + Transpose 组合（纯VBA原生语法） #

如果不想依赖Evaluate的字符串解析逻辑，可通过嵌套Array逐行构造元素。注意未处理的嵌套Array本质是锯齿数组（一维数组嵌套多个一维子数组），不是VBA标准的矩形二维数组，通过两次Transpose即可将其转换为可直接按二维下标访问的标准数组，且完全保留逐行编写的元素顺序。6行4列数组的示例：

MyArr = Application.Transpose(Application.Transpose(Array( _
    Array(1,2,3,4), Array(5,6,7,8), Array(9,10,11,12), _
    Array(13,14,15,16), Array(17,18,19,20), Array(21,22,23,24) _
)))

如果你的使用场景允许行列互换，仅调用一次Transpose即可，无需重复调用。

注意事项 #

• 两种方案均适配小型数组的快速创建需求，无需手动编写循环赋值逻辑。
• 两种方案返回的数组下标默认从1开始，若习惯使用0起始下标，可通过LBound(MyArr, 1)、LBound(MyArr, 2)自动获取数组实际边界，无需硬编码行号、列号的起始值。
• Evaluate方案仅支持写入常量值，若数组元素需要通过变量动态拼接，优先选择第二种嵌套Array的方案。

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