参考代码
Dim t As Table = Tables("表B")For i As Integer = t.TopPosition To t.BottomPosition For j As Integer = t.LeftCol To t.RightCol t.rows(i)(j) = Nothing NextNext
加好友 
发短信
Post By：2018/4/8 8:25:00 [显示全部帖子]
