VBA向函数传递数组处理时报1004及下标越界错误如何解决？

报错原因 #

• 循环次数超出数组最大下标：Split返回的字符串数组默认从0开始索引，假设拆分后共n个元素，数组最大下标为UBound(arr) = n-1。当前代码循环终点为(arrLength + 24) + 1，其中arrLength = UBound(arr) - LBound(arr) = n-1，循环最终会执行n+1次，x自增到n时访问arr(n)超出数组下标范围，触发报错。
• 缺少空值校验逻辑：如果待拆分的单元格内容为空、或者不存在指定分隔符，Split会返回上下界倒置的数组（LBound > UBound），此时直接访问数组元素也会触发下标越界。
• 潜在边界问题：如果拆分后的元素过多，目标列号超过Excel最大列限制（Excel 2007及以后版本最大列数为16384）也会触发同类报错。

修复方案 #

优先直接遍历数组本身的下标范围，避免手动计算长度引发的错误；增加数组合法性校验，无有效元素时直接退出函数；建议把目标行号作为入参传递，方便后续复用逻辑适配多行处理。

修正后完整代码如下：

Option Explicit ' 强制变量声明，提前捕获未定义变量问题

Sub VBA_Split_Print()
    Dim last_row As Long
    Dim arr() As String
    Dim J As Long
    
    ' 明确绑定工作表，避免激活页变动导致的范围错误
    With Worksheets("Raw")
        last_row = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("J2:AE90000").ClearContents
        
        ' 后续如果需要恢复多行处理，放开下方循环注释即可
        ' For J = 2 To last_row
            arr = Split(.Cells(2, 9).Value, ",")
            Call ElectiveAdd(arr, 2) ' 第二个参数为写入目标行号，后续可替换为J
        ' Next J
    End With
End Sub

' 新增rowIndex入参，指定写入行号，提升逻辑复用性
Function ElectiveAdd(ByRef arr() As String, ByVal rowIndex As Long)
    Dim x As Long
    Dim targetCol As Long
    
    ' 校验数组有效性，无有效元素直接退出
    If LBound(arr) > UBound(arr) Then Exit Function
    
    targetCol = 24 ' 写入起始列号
    ' 直接遍历数组下标范围，从根源避免越界
    For x = LBound(arr) To UBound(arr)
        Worksheets("Raw").Cells(rowIndex, targetCol).Value = arr(x)
        targetCol = targetCol + 1
        ' 可选：增加列数限制，避免超出你预设的AE列（列号31）
        If targetCol > 31 Then Exit For
    Next x
End Function

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