Dim t as table = tables("表A")For i As Integer = 0 To t.rows.count-1 For j As Integer = 0 To t.cols.count-1 If t.rows(i)(j) = Nothing Then t.Select(i, j)
msgbox("提示") Return End If NextNext