如果超过5个单元格为空，请隐藏图表

我正在做一个项目，我需要展示很多图表。 但是有些图表缺乏数据，因此如果超过5个单元格为空，我需要隐藏包含特定图表的行。

我已经在另一个项目中隐藏了一些单元格，但它不是基于图表。 这只是一个单细胞。 这里的代码基本上是每当引用给出错误。

For RowCnt = BeginRow1 To EndRow1 If IsError(Cells(RowCnt, ChkCol).Value) Then Rows("7:16").EntireRow.Hidden = True End If Next RowCnt 

比方说，我有10个单元格创build图表，图表填充了15行。 然后我需要一个代码来检查这10个单元格。

 If more than 5 cells are empty Then Rows("0:15").EntireRow.Hidden = True End If Next RowCnt 

我如何处理这个？

Answer 1

你可以使用COUNTIF

 If Application.WorksheetFunction.CountIf(rng, "") > 5 Then 

其中rng是包含您的10个单元格的范围。

我宁愿反过来，在那里你计数非空的单元格

 If Application.WorksheetFunction.CountIf(rng, "*") < 5 Then 

现在rng可以是整行，你不限于10个值。

顺便说一句，你不需要使用.EntireRow Rows(...)范围。 它已经由整个行组成。