VBA选择一个表格的所有行，但不包含最后一行？

yijiboo

用VBA，选择一个表格的所有行，但不包含最后一行。不管是什么样的表格及格式，只需要选择所有行但不含最后一行。效果为：

[ 本帖最后由 yijiboo 于 2010-10-25 23:51 编辑 ]

sylun

可试试如下代码：

1. Sub test()
   
2.     With Selection
   
3.         If .Information(wdWithInTable) Then
   
4.             .Tables(1).Select
   
5.             .MoveEnd wdRow, -1
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

yijiboo

原帖由 sylun 于 2010-10-21 20:14 发表
可试试如下代码：Sub test()
    With Selection
        If .Information(wdWithInTable) Then
            .Tables(1).Select
            .MoveEnd wdRow, -1
        End If
    End With
End Sub

经过测试，不要IF语句可行。谢谢！
Sub test()
    With Selection
       ' If .Information(wdWithInTable) Then
            .Tables(1).Select
            .MoveEnd wdRow, -1
        'End If
    End With
End Sub

szqhb

我这试了要IF也可以啊，不知道有什么区别呢

honggexjq

删除IF的话如果光标不在表格内会报错的
替sylun老师回答下，请sylun见谅

szqhb

选中表格第一行，代码怎样修改？
Selection.Tables(1).Rows(1).Select对有合并单元格的表格不适用

szqhb

Sub test()
   t = Selection.Tables(1).Rows.Count '表格总行数
    With Selection
        If .Information(wdWithInTable) Then
            .Tables(1).Select
            .MoveEnd wdRow, 1 - t '去掉t-1行，即-（t-1）
        End If
    End With
End Sub

banjinjiu

sylun 发表于 2010-10-21 20:14
可试试如下代码：

谢谢分享，感谢。

bearkr

是不是也可以用选定第一个单元格，然后移动光标到倒数二行的最后一个单元格，然后选定！？！！

1261181315a

sylun 发表于 2010-10-21 20:14
可试试如下代码：

哦哦，谢谢哈