删除包含“#REF”错误的单元格的行答案

【问题标题】：Deleting rows with cells that has "#REF" errors删除包含“#REF”错误的单元格的行
【发布时间】：2015-08-12 10:15:54
【问题描述】：

您好，我有一个包含 REF 错误的单元格的 Excel，我想删除包含这些错误的行，而不是向上移动下面的剩余单元格。我尝试了各种代码，但只有单元格本身被删除，因为我不知道如何为此合并行编码。这是我使用的示例代码。

  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

【问题讨论】：

标签： excel vba

【解决方案1】：

使用Range.EntireRow property 扫一扫。

您交替使用了Range.ClearContents method 和Range.Delete method 的术语。它们不是一回事。

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

【讨论】：

小点：如果同一行有多个不相邻的#Ref错误，这将失败
这是一个很好的观点@chrisneilsen，在根据一列的值全面删除行之前应该考虑并保持一致。