即使有公式，如何检查单元格是否为空白

Application.WorksheetFunction.SumIf(_ sht_store.Range(Cells(k, 12), (k, lcol)),_ " <>",_ sht_store.Range(Cells(5, 12), Cells(5, lcol))) 

如果单元格是非空白，我写了这段代码来总结这些值。但是这不起作用，因为单元格可能是空白的，但仍然可能有公式。

我不能改变模块中的任何其他代码..有什么办法我可以给一些其他条件，以总结非空白（而不是“<>”）？

Answer 1

在VBA中你可以使用

• 空单元格为空
• 要检查单元格是否具有公式，

码：

 Option Explicit Function IsFormula(ByRef wscell As Range) As Boolean IsFormula = wscell.HasFormula End Function 

在Excel中，您可以使用

• IsBlank为空单元格

因此，在你的情况检查了这一点：

1. 检查单元格是否有公式
2. 然后检查是否IsNull，没有空格。

之后，你可能会用你的SumIF 。 不pipe公式如何，如果单元格真的是空的或空的，这将返回。

 Function izNull(ByRef rng As Range) As Boolean If Trim(rng.Value) = "" Then izNull = True End If End Function 

Answer 2

我得到它使用.Text属性：

Cells([rowindex],[columnindex]).Text = ""