主题：[求助]如何判断当前表的每一个单元格都不为空

参考

For Each cl As Col In CurrentTable.Cols
    Output.Show(cl.Name)
Next

具体一点你的问题，要全部行都判断吗？如果为空怎样？

For Each r As Row In CurrentTable.rows
    For Each cl As Col In CurrentTable.Cols
        If r.IsNull(cl.name) Then
            msgbox(r.index+1 & " 行 " & cl.name & " 列 为空")
            Return 
        End If
    Next
Next

Currenttable.Save