使用On Error运算符无法捕获错误，VBA宏遇非数值单元格报错终止如何解决？

原代码存在两个核心问题导致错误弹窗无法被跳过：

1. 格式设置语法错误：x.NumberFormat = Number 中的Number不是合法的格式字符串，VBA无法识别，应使用类似"General"或"0"的数值格式字符串。
2. 错误处理逻辑漏洞：当转换失败触发错误时，On Error GoTo -1 语句没有机会执行，错误状态未被清除，后续循环仍会触发系统错误提示。

解决方案一：提前判断可转换性（推荐） #

使用IsNumeric函数先检查单元格内容是否能转换为数值，避免错误触发，执行效率更高：

Sub TextToNum()
    Dim cell As Range
    Dim numValue As Double
    
    For Each cell In Selection
        ' 仅处理可转换为数值的单元格
        If IsNumeric(cell.Value) Then
            numValue = CDbl(cell.Value)
            cell.NumberFormat = "General" ' 可根据需求改为"0"、"0.00"等格式
            cell.Value = numValue
        End If
    Next cell
End Sub

解决方案二：正确的错误捕获处理 #

如果需要兼容IsNumeric无法识别的特殊数值格式（如带千分位的文本），可以用错误捕获机制，确保错误发生后正确跳过当前单元格：

Sub TextToNum()
    Dim cell As Range
    Dim af As Double
    
    For Each cell In Selection
        On Error Resume Next ' 开启错误忽略，错误发生时继续执行
        af = CDbl(cell.Value) ' 尝试转换为数值
        ' 无错误则执行格式转换
        If Err.Number = 0 Then
            cell.NumberFormat = "General"
            cell.Value = af
        End If
        On Error GoTo 0 ' 关闭错误忽略，恢复默认错误处理
    Next cell
End Sub

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