主题：怎么将窗口中的表，多余行列删除？

对于行，删除，参考

DataTables("表a").deletefor("第一列 is null")

多余列，隐藏即可，如

For Each c As Col In Tables("表A").Cols
    If c.Table.findrow(c.name & " is not null") >= 0 Then
        c.visible = True
    Else
        c.visible = False
    End If
Next