如何计算ListObject表中第N列的空白

Question

我想仅在第四列中计算空单元格（空白）。我尝试了以下代码。

ActiveSheet.ListObjects(1).ListColumns(4).DataBodyRange.SpecialCells(xlCellTypeBlanks).Count

在我的情况下，我有一个只有一行的表，第4列有非空单元格。我的代码得到了错误的值。上面的代码返回3个空白而不是零 - 3个空格可能是表格中的空白总数。

Answer 1

我不知道这个bug背后的具体细节，但是当过滤范围显示没有时，当你试图在AutoFilter范围内引用标题下方的可见单元格时，它似乎与以前显示的行为密切相关可见细胞。在这种情况下，它返回所有不可见的行。虽然不完全相同，但这种错误计算似乎密切相关。据我所知，Office错误已在Office Service Pack中得到纠正。

使用Excel Application object调用工作表的COUNTBLANK function来获得正确的结果。

    With Worksheets("Sheet1")
        Debug.Print Application.CountBlank(.ListObjects(1).ListColumns(4).DataBodyRange)
    End With