VBA定义数组提示'Constant expression required'错误调试求助

VBA中直接在Dim语句里写死维度上下界声明的是静态数组，这类数组要求维度的上下界必须是编译阶段即可确定的常量，不支持使用运行阶段才会被赋值的变量作为维度参数。你代码中NRows、NCols是运行时通过输入框获取用户输入后才会赋值的变量，不符合静态数组的声明要求，因此触发"Constant expression required"（要求常量表达式）报错。

另外原代码还存在3处逻辑问题，运行后会出现结果不符合预期的情况：

• Alpha变量声明为String类型，但Split函数返回值是字符串数组，类型不匹配
• 数组维度和循环遍历的下标对应关系颠倒，无法按行顺序填充数字
• Split生成的列标数组默认下标从0开始，原代码直接用Alpha(j)取值会导致写入列从B列开始，偏移一列

• 改用动态数组声明方式：声明数组时不指定维度，即写Dim MyArray()，等获取到用户输入的行数、列数值后，再用ReDim语句重定义数组的实际大小
• 修正Alpha的变量类型，改为Variant或者字符串数组类型，匹配Split的返回值类型
• 调整循环逻辑：外层遍历行、内层遍历列，实现按行顺序填充连续数字的需求
• 取列标时做下标偏移，匹配0基数组的索引规则

Sub ArrayPractice()

Dim NRows As Integer
Dim NCols As Integer
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim Alpha As Variant

Alpha = Split("A @ B @ C @ D @ E @ F @ G @ H @ I @ J @ K @ L @ M @ N @ O @ P @ Q @ R @ S @ T @ U @ V @ W @ X @ Y @ Z", " @ ")

NRows = CInt(InputBox("How Many Rows"))
NCols = CInt(InputBox("How Many Columns (Max is 26)"))

' 动态数组重定义维度
Dim MyArray()
ReDim MyArray(1 To NRows, 1 To NCols)

m = 1
' 按行顺序填充连续数字
For i = 1 To UBound(MyArray, 1)
    For j = 1 To UBound(MyArray, 2)
        MyArray(i, j) = m
        m = m + 1
    Next
Next

' 将数组内容写入对应单元格
For i = 1 To UBound(MyArray, 1)
    For j = 1 To UBound(MyArray, 2)
        ' Split返回数组下标从0开始，列索引需要减1匹配
        Range(Alpha(j - 1) & i).Value = MyArray(i, j)
    Next
Next

End Sub

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