主题：请问判断一张表内，当前行指定多个单元格是否为空值，代码怎么写才最简便

Dim i As Integer
For Each s As String In "第一列|第二列|第五列|第六列|第七列|第八列|第九列|第十列".Split("|")
    If Tables("表A").Current(s) = Nothing Then
        i + = 1
    End If
Next
If i = "第一列|第二列|第五列|第六列|第七列|第八列|第九列|第十列".Split("|").Length Then
    MessageBox.Show("全空")
End If

Dim i As Integer
For Each c As Col In Tables("表A").Cols
    If c.Name <> "第三列" AndAlso c.Name <> "第四列" AndAlso Tables("表A").Current(c.Name) = Nothing Then
        i + = 1
    End If
Next
If i = Tables("表A").Cols.Count - 2 Then
    MessageBox.Show("全空")
End If