用代码可以这样
Dim dt As Table = Tables("表A")For c As integer = dt.LeftCol to dt.RightCol For i As integer = dt.TopRow to dt.BottomRow dt.Rows(i)(c) = Nothing NextNext