参考代码
Dim t As Table = Tables("表A")For i As Integer = t.rows.Count - 1 To 0 Step -1 Dim r As Row = t.rows(i) If r("第一列").trim = "" Then r.delete End IfNext
上面代码摆在哪个事件里