嘿，这个问题我太熟悉了！VBA里声明固定大小的数组时，确实要求用常量值，但要实现动态维度的数组，用动态数组就能轻松解决。

核心思路 #

VBA的动态数组允许你先声明一个没有固定大小的数组，然后在运行时根据实际得到的值（比如你的nobs）来调整它的维度。

修改后的代码 #

Function test(data As Range)
    ' 把Const改成Dim，因为nobs是动态获取的运行时值，不能用常量
    Dim nobs As Integer
    nobs = data.Columns.Count
    
    ' 先声明一个空的动态数组，不指定维度
    Dim AMatrix() As Variant
    
    ' 用ReDim动态设置数组的大小，这里nobs是变量完全没问题
    ReDim AMatrix(1 To nobs, 1 To nobs) As Variant
    
    ' 接下来你就可以正常使用AMatrix数组了，比如给元素赋值、计算等
End Function

关键说明 #

• 原来的Const nobs行不通，因为常量必须是编译阶段就能确定的值，而data.Columns.Count是程序运行时才会计算出来的动态值，所以要把nobs声明为普通变量。
• Dim AMatrix() As Variant这一步是声明动态数组，它此时还没有分配内存空间。
• ReDim AMatrix(1 To nobs, 1 To nobs)会给数组分配实际的内存，并且可以指定你需要的上下界（这里用1-based索引和你的需求一致）。

如果之后你需要调整数组大小同时保留现有数据，可以用ReDim Preserve，不过在这个场景里因为是刚初始化数组，所以不需要Preserve。

内容的提问来源于stack exchange，提问作者Übel Yildmar