自动从Excel空白单元格中删除公式

时间:2015-10-05 17:09:04

标签: excel vba excel-vba

如何从Excel空白单元格中删除公式,例如我在Excel中的一个空白单元格中动态显示这些公式。

=IF('filepath[filename.xls]Sheet1'!$A$1:A$65536="","",'filepath[filename.xls]Sheet1'!$A$1:A$65536)

由于

3 个答案:

答案 0 :(得分:0)

这将是一些简单的宏:

Sub Macro1()



For Each c In Worksheets("your sheet name").Range("your range")

   If c.Value = "" Then c.Select: Selection.ClearContents
   Next c

End Sub

“你的工作表名称”可以是“Sheet1”

和“你的范围”可以是例如“a1:a10”

答案 1 :(得分:0)

Private Sub Worksheet_Calculate()
    Dim cell As Range
    On Error GoTo finish
    Application.EnableEvents = False

    For Each cell In UsedRange
       If cell.Text = "" Then cell.Clear
    Next

finish:
    Application.EnableEvents = True

End Sub

答案 2 :(得分:-1)

不幸的是,如果Excel包含公式,则无法提供真正的空单元格,但我有办法清空单元格:

  • 创建一个if语句,如果为false,则返回 ERROR.TYPE(1)

  • 从那里,选择要从中删除预期“空白”的单元格范围,然后使用“查找并选择”>> “去特别”

  • 点击“公式”单选按钮,将“错误”保留为唯一选中框。单击“确定”将突出显示分配了值“#N / A”的所有单元格。

  • 现在只需按删除键即可。