find指向空白单元格的单元格

在Excel VBA中find其公式指向空白单元格的单元格的最佳方法是什么? 我想删除任何引用空白单元格的单元格。

更具体地说,我有两张表:一张表包含实际值:

Product Month1 Month2 Month3 Sample1 1 3 5 Sample2 5 7 6 Sample3 3 8 2 

另一个是摘要视图,用公式来总结这些值,使用以下公式:

 Product Month1 =values!A2 =SUM(values!B2:D2) =values!A3 =SUM(values!B3:D3) =values!A4 =SUM(values!B4:D4) =values!A5 =SUM(values!B5:D5) TOTAL =SUM(values!B:D) 

现在在前面的例子中,最后一个raw指的是一个空行,即第五行。 Excel将显示这些单元格为“0”。 有没有一种机制来删除VBA中的单元格?

请注意我更喜欢删除行,以保持TOTAL行接近实际的最后一个值。 否则,Total行可能与其余的值相距较远。 此外,具有公式的空白单元格可能会导致一个大的Excel文件。

编辑 :澄清问题angular色保持单元格空白。

它总是最后一行,可以评估为0? 如果是这样的话你可以使用如下的IF语句:

=IF(SUM(values!B2:D2) > 0 ,values!A2,"") =IF(SUM(values!B2:D2),SUM(values!B2:D2),"")

没有VBA需要…

我认为Autofilter是去这里的路。 如果A列中有一个零,我猜你想隐藏整行。 你说删除,但我不知道隐藏是一个更好的方法。

放置一个filter的范围和列Aselect除0之外的所有内容。

你可以做到这一点,而不必编写代码来删除行。 我会使用Arnoldiuss解决scheme的一个变种。

本月总用量:

=IF(LEN(values!A2)>0,SUM(B2:D2),"")

这样,您可以简单地填写所有的公式,而不必担心如果您引用一个不存在的产品。

根据你的编辑我猜数据透视表适合你的需求。 将产品添加到行标签并将以下计算的字段添加到值

=SUM(Month1,Month2,Month3)

然后添加一个值filter> 0

我不build议删除“公式工作表”中的行,以备将来使用,因为缺less参考文献,系列将会被破坏。