VBA Excel空白单元格错误处理

Question

  Sub Remove_Deregistered()

With Worksheets("Sheet2")
For Each cel In .Range(.Range("D2"), .Range("D2").End(xlDown))
   If cel.Value Like "*Deregistered*" Then

       Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = cel.Offset(, 10).Value
      cel.Resize(1, 1).ClearContents

      Worksheets("Sheet3").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = cel.Offset(, 11).Value
      cel.Resize(1, 1).ClearContents

   End If

 Next

Sheet2.Range(.Range("D2"), .Range("G2").End(xlDown).Offset(, -3)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


End With

End Sub

在上面的Sub中，当范围D2没有空白单元格时，我在此行中遇到错误：

   Sheet2.Range(.Range("D2"), .Range("G2").End(xlDown).Offset(, -3)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

如何防止此错误？

Answer 1

您可以使用一些错误处理代码，例如：

BeginTry1:
    On Error GoTo ErrHandler1
    Worksheets("Sheet1").Range(.Range("D2"), _
                               .Range("G2").End(xlDown).Offset(, -3)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

ErrHandler1:
    Debug.Print Err.Description

Answer 2

或者您可以忽略这样的错误

On Error Resume Next 

' your code that might give error here

If Err.Number <> 0 Then Debug.Print Err.Description  ' optional to print the error in the VBA Immediate window

On Error GoTo 0   ' optional to reset the error handling 

http://www.cpearson.com/excel/errorhandling.htm