首页 文章

当值为null时删除公式

提问于
浏览
0

我希望有一个快速的方法来删除单元格中的公式,如果结果为空 .

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

1 回答

  • 0

    尝试运行这个短宏:

    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
    

相关问题