删除#NUM错误宏从工作表到工作簿

Question

我想跨117张工作簿的整个工作簿运行下面的宏。我已经尝试过几种不同的研究，但没有成功。我更新VBA，所以我可能只是缺少一些小东西。

Sub DelNUM() 
Dim LR As Long, i As Long 
LR = Range("B" & Rows.Count).End(xlUp).Row 
For i = LR To 1 Step -1 
    If IsError(Range("B" & i)) Then Rows(i).Delete 
Next i 

End Sub 

任何意见，将不胜感激。

谢谢

Answer 1

Sub DelNUM() 
    Dim LR As Long 
    Dim i As Long 
    Dim sh As Worksheet 

    For Each sh In Worksheets 
    LR = sh.Range("B" & sh.Rows.Count).End(xlUp).Row 
    For i = LR To 1 Step -1 
     If IsError(sh.Range("B" & i)) Then sh.Rows(i).Delete 
    Next i 
    Next 
End Sub