dim t as table = tables("表A")
For Each c As Col In t.cols If c.DataCol.Expression = "" Then For Each r As Row In t.rows r(c) = Nothing Next End IfNext