如何在VBA中正确使用动态数组以避免Expected Sub, Function or Property错误

核心错误原因 #

你遇到的Expected Sub, Function or Property错误，根源是数组索引语法错误：VBA中访问数组元素必须使用圆括号()，而你用了方括号[]。方括号在VBA里是Evaluate函数的简写，编译器会把TimeParse [k,i]误认为是要调用名为TimeParse的子程序/函数，而非访问数组元素。

其他需要修复的问题 #

除了核心语法错误，代码里还有几个关键问题：

• Range对象赋值必须用Set关键字，直接赋值会触发对象类型错误
• 变量i,j,k,ArrayRows未声明，建议开启Option Explicit强制声明变量，避免隐式类型错误
• 判断奇偶不能用Is Even/Is Odd，VBA里要用Mod运算符（j Mod 2 = 0表示偶数）
• 数组TimeParse定义为Double类型，但要存储字符串（任务描述）和时间，应该用Variant类型兼容混合数据
• 动态数组的正确用法：先声明为Dim TimeParse() As Variant，再用ReDim指定具体尺寸

修正后的代码 #

Option Explicit ' 强制变量声明，避免隐式错误

Function Tasker()
    Dim TaskRange As Range
    Dim TimeRange As Range
    Dim ArrayRows As Integer
    Dim i As Integer, j As Integer, k As Integer
    Dim TimeParse() As Variant ' 用Variant存储混合类型数据
    
    ' 赋值Range对象必须用Set
    Set TaskRange = Range("B3:B4")
    Set TimeRange = Range("C3:C4")
    ArrayRows = TaskRange.Count
    
    ' 动态定义数组：行数为任务数，列数为3（任务名、开始时间、结束时间）
    ReDim TimeParse(1 To ArrayRows, 1 To 3)
    
    ' 填充任务描述
    i = 1
    For Each Cell In TaskRange
        TimeParse(i, 1) = Cell.Value
        i = i + 1
    Next Cell
    
    ' 填充时间（开始/结束）
    j = 1
    k = 1
    For Each Cell In TimeRange
        If j Mod 2 = 1 Then ' 奇数位是开始时间
            TimeParse(k, 2) = Cell.Value
        Else ' 偶数位是结束时间
            TimeParse(k, 3) = Cell.Value
            k = k + 1 ' 切换到下一个任务
        End If
        j = j + 1
    Next Cell
    
    ' 如需返回整理后的数组，添加此行
    ' Tasker = TimeParse
End Function

额外说明 #

• 开启Option Explicit：在模块顶部添加这行代码，能快速发现未声明的变量，避免很多低级错误
• 数组索引：VBA默认数组从0开始，但用1 To N的方式定义索引更符合Excel单元格的习惯，也更易理解
• 函数返回值：如果需要让函数返回整理后的数组，最后添加Tasker = TimeParse，在Excel单元格输入=Tasker()即可获取结果

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