Excel VBA将光标移至单元格D7文本末尾报错求助

你的代码报错是因为xlToEndOfText不是Range.End方法的有效参数，End方法仅支持xlUp/xlDown/xlToLeft/xlToRight这几个方向参数，所以会触发对象定义错误。

下面是两种可行的解决方案：

方法一：使用键盘模拟（简单直接） #

Dim cell As Range
Set cell = Me.Range("D7")
cell.Select
If cell.Value <> "" Then
    ' 发送End+右箭头组合键，定位到文本末尾
    SendKeys "{END}+{RIGHT}"
End If

方法二：使用Selection.SetRange（更稳定，无系统依赖） #

这种方法不依赖键盘模拟，兼容性更好：

Dim cell As Range
Set cell = Me.Range("D7")
cell.Select
If cell.Value <> "" Then
    With Selection
        ' 将光标定位到文本最后一个字符之后
        .SetRange .Characters.Count + 1, .Characters.Count + 1
    End With
End If

内容的提问来源于stack exchange，提问作者Raky