伪代码表示一下，当然以下代码是无法运行的：

Private Sub Form_Load()
Dim a(23, 64)
a(23, 64) = 3
Debug.Print a(1, 3)
End Sub

For....Next形式的赋值就算了。

[此贴子已经被作者于2023-1-24 21:25编辑过]

copymemory API or jsscript,无论各种方法，底层还是循环，并且循环是效率最高的

EXCEL vba 里实现比较简单

先dim 数组
做个通用子程序，将初始数据用字符串的参数形式传递给子程序，如：arrayData=“1，2，3，4，5，6，7，8，9，10，....n”
在子程序中先用vb6自带的 split 函数处理 该字符串，然后根据数组的维度信息用循环赋值，在返回数组。