VBA 运行时错误完整指南

常见运行时错误类型

VBA 运行时错误（Run-time error）是指代码在语法检查通过后，实际执行过程中触发的异常。这些错误的编号范围从 9 到 1004，每种编号对应特定的问题：下标越界、类型不匹配、对象未设置、Excel 操作失败等。与编译错误不同，运行时错误不会在编写代码时提示，而是在代码执行到某一行时突然中断并弹出对话框，VBA 编辑器会高亮出问题的那行代码。

处理这类错误的标准流程是：先记录错误编号和描述，点击"调试"按钮定位到出错行，根据错误类型采用对应的修复方法修改代码，最后添加容错代码防止再次触发。

相关问题：Excel 报错调试 常见问题、VBA 代码性能优化完整指南

---

快速定位错误源头

遇到运行时错误不要慌张，按照以下三个步骤可以快速找到问题所在：

1. 记录错误信息：错误弹窗会显示编号（如 9、13、91）和文字描述。抄下来或截图，这是后续分析的线索。
2. 点击"调试"按钮：弹窗上有三个按钮——"继续"、"结束"、"调试"。点击"调试"，VBA 编辑器会自动跳到出错的代码行并用黄色高亮标记。
3. 检查变量当前值：将鼠标悬停在高亮行的变量名上，VBA 会显示该变量在出错那一刻的值。这一步能直接判断是数据类型不对、数组索引超限还是对象引用为空。

完成这三步后，90% 的错误原因基本能锁定。剩余 10% 的情况需要结合调用栈（Call Stack）查看是哪层过程调用了这段代码。

---

错误编号与触发场景

错误编号	错误描述	高频触发场景
9	下标越界（Subscript out of range）	访问不存在的数组索引或集合成员
13	类型不匹配（Type mismatch）	把文本赋值给数值变量，或者反过来
91	对象变量或 With 块变量未设置（Object variable or With block variable not set）	使用了尚未 Set 的对象变量
424	需要对象（Object required）	将对象的方法或属性当作普通变量使用
438	对象不支持该属性或方法（Object doesn't support this property or method）	在错误的对象类型上调用了不存在的成员
1004	应用程序定义的或对象定义的错误（Application-defined or object-defined error）	操作 Excel 时遇到保护、只读、范围冲突等问题

这 6 个编号覆盖了日常工作中 95% 以上的运行时错误。记住它们的含义和触发场景，遇到时可以直接跳过查文档的步骤。

---

典型场景与修复方案

场景 1：下标越界（错误 9）

触发条件：访问了不存在的数组索引或集合成员。

' 会触发错误 9 的代码
Dim arr(1 To 3) As Integer
arr(5) = 100   ' 数组只有 1-3，索引 5 越界

排查与修复步骤：

1. 使用 LBound(arr) 和 UBound(arr) 确认数组的上下限。
2. 检查循环变量是否超出范围——最常见的是 For i = 1 To UBound(arr) + 1 这种多跑了一次。
3. 注意 Worksheets 集合的索引从 1 开始，但 Array 函数创建的数组索引从 0 开始。
4. 如果引用的是其他集合（如 Workbooks），先用 For Each 遍历查看实际包含哪些项。

完整修复示例：

Sub SafeArrayAccess()
    Dim arr(1 To 3) As Integer
    Dim i As Integer
    
    For i = 1 To 3
        arr(i) = i * 10
    Next i
    
    ' 需要访问第 5 个元素时，先检查上限
    If i <= UBound(arr) Then
        arr(i) = 100
    Else
        MsgBox "索引 " & i & " 超出了数组上限 " & UBound(arr)
    End If
End Sub

场景 2：类型不匹配（错误 13）

触发条件：将一个数据类型的值赋给了不兼容的变量类型。

' 会触发错误 13 的代码
Dim total As Double
total = "三十二"   ' 字符串不能直接赋值给数值变量

排查与修复步骤：

1. 赋值前使用 IsNumeric() 判断数据是否能转为数值。
2. 从 Excel 单元格取值时，检查单元格格式是否为"文本"——文本格式的单元格即使内容像数字，VBA 也会当字符串处理。
3. 使用 CDbl()、CInt()、CLng()、CStr() 等类型转换函数显式转换。
4. 如果数据来自用户输入（如 InputBox），先验证输入是否为期望格式。

完整修复示例：

Sub SafeTypeConversion()
    Dim cellValue As Variant
    Dim total As Double
    
    cellValue = Range("A1").Value
    
    ' 先判断类型
    If IsNumeric(cellValue) Then
        total = CDbl(cellValue)
        MsgBox "转换成功：" & total
    Else
        MsgBox "单元格 A1 的内容不是数字（当前值：" & cellValue & "）"
    End If
End Sub

场景 3：对象变量未设置（错误 91）

触发条件：声明了对象变量但没有使用 Set 赋值就直接使用。

' 会触发错误 91 的代码
Dim ws As Worksheet
ws.Range("A1").Value = 100   ' ws 还没有指向任何工作表

排查与修复步骤：

1. 确认所有对象变量在使用前都有对应的 Set 赋值语句。
2. 如果对象是函数的返回值（如 Find 方法），先检查返回值是否为 Nothing。
3. 使用 If Not ws Is Nothing Then 做安全检查，避免直接使用未赋值的变量。
4. 对于从集合中查找的对象（如按名称找工作表），先判断集合中是否存在该项。

完整修复示例：

Sub SafeObjectUsage()
    Dim ws As Worksheet
    Dim targetName As String
    
    targetName = "Sheet1"
    
    ' 先检查工作表是否存在
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(targetName)
    On Error GoTo 0
    
    ' 确认对象有效再使用
    If Not ws Is Nothing Then
        ws.Range("A1").Value = 100
    Else
        MsgBox "未找到名为 '" & targetName & "' 的工作表"
    End If
End Sub

场景 4：Excel 操作失败（错误 1004）

触发条件：操作 Excel 对象时遇到保护、只读、区域冲突或引用无效等问题。

' 可能触发错误 1004 的场景
Range("A1").Value = 100   ' 如果工作表被保护，这行会报 1004

排查与修复步骤：

1. 检查目标工作表的保护状态：If ws.ProtectContents Then ...。
2. 确认工作簿不是只读模式——使用 Workbook.ReadOnly 属性判断。
3. 将 Range 引用写成完整限定写法：ThisWorkbook.Worksheets("Sheet1").Range("A1")，避免跨工作簿引用混乱。
4. 检查公式引用是否合法：公式里的区域不能包含非法字符或循环引用。
5. 如果操作涉及合并单元格，先判断合并区域的范围是否正确。

完整修复示例：

Sub SafeWriteToSheet()
    Dim targetWs As Worksheet
    
    Set targetWs = ThisWorkbook.Worksheets("Sheet1")
    
    ' 解除工作表保护（如果有密码则需提供）
    If targetWs.ProtectContents Then
        targetWs.Unprotect Password:="" ' 如果设置过密码，填入对应密码
    End If
    
    ' 用完整限定写法写入
    targetWs.Range("A1").Value = 100
    
    ' 可选：重新保护工作表
    ' targetWs.Protect Password:=""
End Sub

---

通用错误处理模板

下面的模板适合嵌入到可能出错的 VBA 过程中。它能捕获运行时错误，显示具体信息，并根据你的策略决定后续操作。

Sub SafeMacro()
    On Error GoTo ErrHandler
    
    ' ——— 主要代码写在这里 ———
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Data")
    ws.Range("A1").Value = "示例数据"
    ' ——— 主要代码结束 ———
    
    Exit Sub   ' 正常执行到这里退出，避免进入错误处理段
    
ErrHandler:
    ' 显示错误细节
    MsgBox "错误 " & Err.Number & "：" & Err.Description & vbCrLf & _
           "出错行：" & Erl
        
    ' 策略选择：
    ' 1. Resume Next：忽略错误，继续执行下一行
    '