如何在word中用vba删除表格最后一列（表格行数列数不知，且含有合并单元格）

jiangxiaoyun

1. Sub bg()
   
2.     With ActiveDocument.Tables(2)
   
3.         c = .Columns.Count  '列数
   
4.         If .Uniform = True Then  '如果没有合并单元格
   
5.             .Columns(c).Delete   '直接删除最好一列
   
6.         Else
   
7.             .Range.Cells(c).Select  '选中最后一列第一个单元格
   
8.             Selection.Columns.Delete  '删除列
   
9.         End If
   
10.     End With
    
11. End Sub

复制代码