删除具有“#REF”错误的单元格的行

您好，我有一个Excel包含与REF错误的单元格，我想要删除包含这些错误的行比移动下面的剩余单元格。 我已经尝试了各种代码，但只有单元格本身删除，因为我不知道如何纳入这一行编码。 这是我用过的示例代码。

Sub Check_Ref() Dim rng As Range Dim rngError As Range Set rng = Sheets("Sheet4").Range("A1:Z100") On Error Resume Next Set rngError = rng.Cells.SpecialCells(xlCellTypeFormulas, xlErrors) On Error GoTo 0 If Not rngError Is Nothing Then rngError.ClearContents End If 'For Each cell In rng End Sub 

Answer 1

使用Range.EntireRow属性来扫描行。

您已经使用了Range.ClearContents方法和Range.Delete方法的术语。 它们不是同一件事。

 If Not rngError Is Nothing Then 'rngError.EntireRow.ClearContents rngError.EntireRow.Delete End If