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

coolvirus

http://zhidao.baidu.com/question/1819298979580715548.html
引用如下：

word中，有一个表格（行数列数不知），里面包括有若干个合并的单元格，而且这些合并的单元格都不在最后一列，现在要获取最后一列（就是能获取显示列数），并删除最后一列（其余列不变）。

已知用简单的方法无法实现，如：

    ActiveDocument.Tables(1).Columns.Count'获取失败
    ActiveDocument.Tables(1).Columns.Last.Delete'删除失败

提示如下错误：无法访问此集合中单独的行,因为表格有纵向合并的单元格

一个个单元格删除同样出错如上。

413191246se

Sub 删除末列()
'
' 删除不规则表格之末列 Macro
' m=行，n=列
    Dim m As Long, n As Long
    m = ActiveDocument.Tables(1).Rows.Count
    n = ActiveDocument.Tables(1).Columns.Count
'选定最后一个单元格
    ActiveDocument.Tables(1).Cell(m, n).Select
'删除列（此语句乃录制宏，点击表格工具栏上的删除列按钮所得）
    Selection.Columns.Delete
End Sub

coolvirus

413191246se 发表于 2014-12-22 20:14
Sub 删除末列()
'
' 删除不规则表格之末列 Macro

非常感谢楼上的回答，可惜不正确。
这是一道非常有难度的題目。
你的方法題目已经指出了是不行的，见題目中:
ActiveDocument.Tables(1).Columns.Count'获取失败，提示错误：无法访问此集合中单独的行,因为表格有纵向合并的单元格。
楼上的方法只适合没有合并单元格的表格。有的话获取行数列数会出错。

继续期待……

loquat

上附件吧，也许是个别现象呢

csnAlex

不能获得 .Cell(m, n) 的时候有另外一个思路，用Range.Cells方法。代码如下：

1. Private Sub 删除最后一列()
   
2.     With ActiveDocument.Tables(1).Range
   
3.         .Cells(.Cells.Count).Select  '选定最后一个单元格
   
4.     End With
   
5.     Selection.Columns.Delete
   
6. End Sub
   

复制代码

413191246se

楼主，我的代码在我的电脑WORD2003中，删除如你图片中所示表格，可以一列一列地删除，直到最后只剩一个回车符，请重新试一下看看（在我这里运行正常）。

ddavi

使用Table.Columns(7).Delete
Table需要定位到要删除表格

我的电子表1516

很值得参考，收藏了

我的电子表1516

Sub 删除末列()
'
' 删除不规则表格之末列 Macro
' m=行，n=列
    Dim m As Long, n As Long
    m = ActiveDocument.Tables(1).Rows.Count
    n = ActiveDocument.Tables(1).Columns.Count
'选定最后一个单元格
    ActiveDocument.Tables(1).Cell(m, n).Select
'删除列（此语句乃录制宏，点击表格工具栏上的删除列按钮所得）
    Selection.Columns.Delete
End Sub

回楼主，2楼的这个代码在我的电脑上有效，其表格是纵向与横向都有的表格，使用的是word2016。不知为什么？

jiangxiaoyun

先mark一下