主题：[求助]统计出所有列中空白单元格的个数 代码怎么写 我有点思路 但是不会合成代码！

Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
     cnt = cnt & "+" & "'" & Tables("人事档案_人事档案Table1").Compute("") & "'"
Next

我是想这样的   该怎么写代码~

Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
     cnt = cnt  +  Tables("人事档案_人事档案Table1").Compute("count(" & cl.name & ")",cl.Name & " Is null ")
Next
output.show(cnt)

计算结果为0  。。

多谢老大了 最后解决了~~~~~~

Dim cnt As Integer
For Each cl As col In Tables("人事档案_人事档案Table1").cols
    If cl.name <> "详" And cl.name <> "调" And cl.name <> "合" And cl.name <> "离" And cl.name <> "离职时间" And cl.name <> "备注" And cl.name <> "系统密码" And cl.name <> "系统开启" And cl.name <> "系统在线与否" Then
        cnt = cnt  +  Tables("人事档案_人事档案Table1").Compute("Count([_identify])", cl.Name & " Is NULL ")
    End If
Next
output.show(cnt)