Question

我希望有一种快速方法可以删除单元格中的公式，如果结果为Null。

具体来说，使用IFERROR，如果公式的结果是错误，我将公式设置为“”（即空白）。虽然细胞看起来是空白的，但它们仍含有配方;因此，我无法对数据进行统计分析（使用XLSTAT），因为它们被视为非数字单元格。我尝试了查找和替换，但这不起作用。鉴于列数和数据量很大，过滤每行“空白”并手动删除这些单元格需要很长时间。任何想法都将不胜感激。

Answer 1

尝试运行这个短宏：

Sub SheetFixer()
   Dim r As Range, rng As Range
   On Error Resume Next
   Set rng = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas)

   If Err.Number <> 0 Then
      Error.Number = 0
      On Error GoTo 0
      MsgBox "No formulas on sheet."
      Exit Sub
   End If

   For Each r In rng
      If r.Value = "" Then r.Clear
   Next r
   On Error GoTo 0
End Sub

当值为null时删除公式

1 个答案: