值为空时删除公式答案

【问题标题】：Deleting formula when value is null值为空时删除公式
【发布时间】：2016-01-05 08:05:31
【问题描述】：

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

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

【问题讨论】：

猜你不知道 VBA 所以做一个查找/替换"" 到一些随机字符串然后查找替换所说的随机字符串？
一旦您以您想要的方式查看工作表，选择整个工作表，将特殊粘贴到另一个只有值的工作表中。然后在第二张纸上运行分析。
我建议删除 IFERROR 并将错误带回单元格。选择您要删除错误单元格的区域。按 Ctrl+G。将出现一个“转到”窗口。单击特殊。选择公式，取消选中除错误复选框之外的所有复选框。单击确定。然后点击键盘上的删除键。
KS Sheon-这是完美的解决方案。谢谢你们！感谢您的加入并提供建议。

标签： excel excel-formula

【解决方案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

【讨论】：

谢谢 Gary 的学生。我对宏不太熟悉，但这很高兴知道。我能够使用 KS Sheon 的修复程序。