主题：删除空白行

比如

Dim r As Row = Tables("person").Current
If r("第一列") = Nothing AndAlso r("第二列") = Nothing Then
    r.delete
End If