如何修改VBA代码实现逐个替换#REF!错误并显示左侧单元格值

当前代码会一次性批量替换所有#REF!错误，无法逐个自定义替换值，且输入框未关联错误单元格左侧内容。以下是修改后的代码，实现逐个弹出输入框，提示文本包含对应错误单元格左侧的内容：

Sub testError()
    Application.EnableEvents = False
    On Error Resume Next ' 捕获无错误单元格的1004错误
    Dim rng As Range
    Dim rCell As Range
    Dim promptText As String
    
    Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
    If Err.Number = 1004 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    On Error GoTo 0 ' 恢复默认错误处理
    
    For Each rCell In rng
        If rCell.Value = CVErr(xlErrRef) Then
            ' 生成提示文本，处理第一列无左侧单元格的情况
            If rCell.Column = 1 Then
                promptText = "Replace #REF! with? (当前单元格为第一列，无左侧团队信息)"
            Else
                promptText = "Replace #REF! with? Team is " & rCell.Offset(0, -1).Value
            End If
            
            Dim inputVal As Variant
            inputVal = InputBox(promptText, "替换#REF!错误")
            
            ' 判断用户是否取消输入，仅在输入有效时替换
            If inputVal <> "" Then
                rCell.Value = inputVal
            End If
        End If
    Next
    
    Application.EnableEvents = True
End Sub

关键修改说明 #

• 调整错误处理逻辑：提前捕获SpecialCells找不到错误单元格时的1004错误，避免程序报错退出
• 动态生成输入框提示：根据错误单元格所在列判断，若为第一列则提示无左侧信息，否则拼接左侧单元格值
• 增加取消输入判断：用户点击取消或输入空值时，不修改当前错误单元格，避免误操作
• 规范变量声明：补充rCell和inputVal的变量声明，符合VBA编码规范

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