为何VBA的On Error Goto无法跳过所有错误？仅能跳过#DIV/0!

嘿，我来帮你拆解下这个VBA错误处理的问题，以及怎么修复你的单元格清理代码哈！

你的代码里藏着几个容易踩的坑，导致它只能处理#DIV/0!这类错误，遇到其他错误就直接卡壳：

1. 错误状态没重置：当第一次触发错误进入c:块后，VBA的错误标记还是“已触发”状态，没有被重置。这时候再遇到新的错误，VBA会直接判定“之前的错误还没处理完”，直接终止程序，而不是再次跳转到错误处理块。
2. ActiveSheet用错了：你明明在循环遍历工作簿里的所有工作表ws，但却用ActiveSheet.UsedRange，这会导致你一直处理当前激活的那张表，而不是循环到的ws，逻辑完全错了！
3. 直接碰错误单元格：当单元格是#N/A、#REF!这类错误值时，你直接调用WorksheetFunction.Clean，会瞬间触发错误，而如果错误处理状态没重置，就直接崩了。

下面是调整后的代码，完美解决这些问题：

Sub CleanAllWorkbookCells()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim cl As Range
    Dim counter As Long
    
    ' 替换成你要处理的工作簿，比如Workbooks("你的文件.xlsx")
    Set wb = ThisWorkbook
    
    For Each ws In wb.Worksheets
        ' 每次处理新表前开启错误捕获
        On Error GoTo ErrorHandler
        ' 用当前循环的ws，别再用ActiveSheet了！
        Set rng = ws.UsedRange
        
        For Each cl In rng
            ' 先判断是不是错误值，提前规避错误，比触发错误处理更高效
            If Not IsError(cl.Value) Then
                cl.Value = WorksheetFunction.Clean(Trim(cl.Value))
            Else
                ' 是错误值直接计数，不用触发错误
                counter = counter + 1
            End If
        Next cl
        
        ' 处理完当前表，关闭错误捕获，继续下一张表
        On Error GoTo 0
        ContinueNextSheet:
    Next ws
    
    MsgBox "清理搞定！一共跳过了 " & counter & " 个错误单元格~"
    Exit Sub
    
ErrorHandler:
    ' 捕获到错误就计数，然后用Resume Next重置错误状态，继续下一个单元格
    counter = counter + 1
    Resume Next
End Sub

• 提前检查错误值：用IsError(cl.Value)先判断单元格内容，避免触发错误，这比依赖错误处理更高效，也更可控。
• Resume Next是关键：在错误处理块里用Resume Next，会告诉VBA“这个错误我处理完了，继续执行下一行”，重置错误状态，这样后续的错误才能被持续捕获。
• 换掉ActiveSheet：用循环变量ws来获取UsedRange，确保每个工作表都被正确处理，不会出现“循环了10张表但只处理了1张”的尴尬情况。
• 及时关闭错误捕获：处理完每张表后用On Error GoTo 0关闭错误捕获，避免后续代码被错误处理逻辑干扰。

其实不是它只认识#DIV/0!，而是第一次错误触发后，你没有重置错误状态，所以第一次错误能被处理，但第二次错误来的时候，VBA的错误标记还在，直接就崩了。只要加上Resume Next重置状态，所有错误都能被捕获啦！

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