在删除引用错误的同时删除单元格

Question

嗨，我想删除单元格的同时删除引用错误，但我的代码似乎不工作。它删除单元格，但不删除引用错误。需要帮助。非常感谢你！

Sub DeleteCells() 


    Dim rngError As Range 
    Dim R As Range 
    Set rng = Nothing 
    On Error Resume Next 
    Set R = Application.InputBox("Select cells To be deleted", Type:=8) 
    Set rngError = rng.Cells.SpecialCells(xlCellTypeFormulas, xlErrors) 
    On Error GoTo 0 
    'delete means cells will move up after deleting that entire row 
    'rngError.EntireRow.ClearContents means that the contents will clear, leaving a blank cell for that entire row 

    If TypeName(R) <> "Range" Then 
     Exit Sub 
    Else 
    R.Delete 
    For Each cell In Range("A1:Z100") 
    If Not rngError Is Nothing Then 
    rngError.Delete 

End If 

Next 

End If 



End Sub 

Answer 1

这将在列删除公式误差的

Sub del_err() 
    Dim rng As Range 
    On Error GoTo er 
    Set rng = Columns("A:A").SpecialCells(xlCellTypeFormulas, 16) 
    If Not rng Is Nothing Then 
     rng.Delete Shift:=xlUp 
     Exit Sub 
    End If 
er:  MsgBox "No errors found" 
End Sub