VBA数组未填满时如何跳过错误并继续执行？

嗨，这个场景在处理数组时太常见了——尤其是当数组元素可能未被完全赋值的时候。我给你两个最常用的解决方案，附具体代码示例，你可以按需选用：

方法1：提前检查元素状态（推荐，主动避免错误） #

与其等错误发生再处理，不如在执行操作前先判断数组元素是否为空/未初始化。这样代码更清晰，也不会掩盖其他潜在问题。

假设你的Name是一个变体数组（VBA里最常用的数组类型之一），循环检查时可以这样写：

Dim Name() As Variant
Dim i As Integer

' 假设这里已经给数组部分元素赋值了
ReDim Name(1 To 5)
Name(1) = "John Doe"
Name(3) = "Jane Smith"
' Name(2)、Name(4)、Name(5) 未赋值，默认是空变体

For i = LBound(Name) To UBound(Name)
    ' 先判断元素是否不为空
    If Not IsEmpty(Name(i)) Then
        ' 执行你的检查逻辑，比如拆分姓和名
        Dim fullName As String
        fullName = Name(i)
        Dim firstName As String, lastName As String
        firstName = Split(fullName, " ")(0)
        lastName = Split(fullName, " ")(1)
        
        Debug.Print "名：" & firstName & "，姓：" & lastName
    Else
        ' 元素为空时，直接跳过，也可以加个日志提示
        Debug.Print "索引" & i & "的元素为空，跳过处理"
    End If
Next i

如果你的Name是字符串数组，未赋值的元素默认是空字符串，判断条件改成If Name(i) <> "" Then就行。

方法2：使用错误捕获（适合复杂场景） #

如果你的逻辑里可能出现多种未知错误，或者提前判断比较麻烦，可以用On Error Resume Next临时跳过错误，处理完后记得恢复正常错误处理。

示例代码：

Dim Name() As String
Dim i As Integer

ReDim Name(1 To 5)
Name(1) = "John Doe"
Name(3) = "Jane Smith"

For i = LBound(Name) To UBound(Name)
    ' 临时开启错误跳过
    On Error Resume Next
    ' 尝试执行拆分操作
    Dim firstName As String, lastName As String
    firstName = Split(Name(i), " ")(0)
    lastName = Split(Name(i), " ")(1)
    
    ' 检查是否发生错误
    If Err.Number = 0 Then
        Debug.Print "名：" & firstName & "，姓：" & lastName
    Else
        Debug.Print "索引" & i & "处理出错：" & Err.Description
        Err.Clear ' 清空错误状态
    End If
    ' 恢复正常错误处理，避免影响后续代码
    On Error GoTo 0
Next i

⚠️ 注意：On Error Resume Next是一把双刃剑，一定要局部使用，用完立刻用On Error GoTo 0关闭，不然后续代码的错误会被悄悄掩盖，很难排查。

额外提示 #

• 如果你不确定数组的实际有效元素数量，最好用动态数组，并在赋值后用ReDim Preserve调整大小，这样循环时只需要遍历到实际有值的索引。
• 对于固定长度数组，记得用LBound()和UBound()获取数组的上下界，不要硬写数字，避免数组大小变化时出错。

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