刪除#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