请教VBA上下移动光标问题

窵禠

请教各位老师：
在【光标已确定在单元格内】的情况下：如何使用VBA命令使光标上下移动1单元格

例如：光标原本在表格1行1列，如何将其确定的移动至2行1列

我原本采用的两种方式都有问题：

    Selection.SelectCell
    wUnits = Selection.MoveDown(Unit:=wdLine, Count:=1)
当跨页的时候移动不正确

    Selection.SelectRow
    tableColCount = Selection.Range.Cells.Count
    wUnits = Selection.MoveRight(Unit:=wdCell, Count:=tableColCount, Extend:=wdMove)
当经过已合并的单元格时移动不正确

ke3088

2行1列开始处：
ActiveDocument.Range(ActiveDocument.Tables(1).Cell(2, 1).Range..Start, _
        ActiveDocument.Tables(1).Range..Start).Select
2行1列结尾处：
ActiveDocument.Range(ActiveDocument.Tables(1).Cell(2, 1).Range..End - 1, _
        ActiveDocument.Tables(1).Range..End - 1).Select
其他单元格类似

窵禠

ke3088 发表于 2021-7-31 12:37
2行1列开始处：
ActiveDocument.Range(ActiveDocument.Tables(1).Cell(2, 1).Range..Start, _
        Ac ...

您的解法给了我很大启示，使用单元格坐标确实是一个新思路

只是这样还有一个问题想向您请教：
当表格内存在合并单元格时，向下移动会出现错误，
例如：

当前表格2行1列已与3行1列合并，此时光标于2行1列执行完程序，向3行1列移动。

ke3088

窵禠 发表于 2021-8-4 09:45
您的解法给了我很大启示，使用单元格坐标确实是一个新思路

只是这样还有一个问题想向您请教：

不要上移下挪的方法处理表格，就如你所说遇到合并单元格不能精准定位，还是用进入指定单元格的方法：
3行1列用：ActiveDocument.Range(ActiveDocument.Tables(1).Cell(3, 1).Range.End - 1, _
        ActiveDocument.Tables(1).Cell(3, 1).Range.End - 1).Select，或者ActiveDocument.Range(ActiveDocument.Tables(1).Cell(3, 1).Range.Start , _
        ActiveDocument.Tables(1).Cell(3, 1).Range.Start).Select
Tables(1)，括号内数字，表示按先后顺序第几个表
Cell(i,n)，i行，n列

窵禠

ke3088 发表于 2021-8-4 13:07
不要上移下挪的方法处理表格，就如你所说遇到合并单元格不能精准定位，还是用进入指定单元格的方法：
3 ...

您误会了，我想表达的是:当2行1列单元格与3行1列单元格合并，此时3行1列单元格已经不存在，访问cell(3,1)会导致程序崩溃。