Excel VBA编码以到达最右边的非空白单元格

我正在使用MS Excel 2007，我在下面描述的一些东西中遇到了问题

假设我在“A”、“D”列中有数据。excel表格中的“H”、“J”、“L”、“P”，所有这些列都有数百行数据。在这个场景中，单元格“A4”被选中，我需要转到单元格“P4”，如果我必须手动按键，这就像按下“Ctrl+向右箭头”5次一样。但是，对于从“A4”移动到“P4”（不进行按键）的过程，VBA代码是什么？

---

在此方面的帮助将不胜感激！！提前谢谢。

您不必模拟按键：

Sub SelectMostRightCell()
With Sheet1                       ' << change to project's sheet Code(Name)
    '~~> get most right column in active row
    Dim lastCol As Long
    lastCol = .Cells(ActiveCell.Row, .Columns.Count).End(xlToLeft).Column
    '~~> select most right cell in active row
    .Cells(ActiveCell.Row, lastCol).Select
End With
End Sub

Sub-SelectMostRightCell（）
使用Sheet1'获取活动行中最右侧的列
暗淡如长
lastCol=.Cells（ActiveCell.Row、.Columns.Count）.End（xlToLeft）.Column
“~~>选择活动行中最右边的单元格
.Cells（ActiveCell.Row，lastCol）。选择
以
端接头

---

顺便说一句，尽量避免

。选择
，也就是说，如果没有明确要求
@brax OP不希望偏移5列，而是移动到最右边的单元格：-）建议的读数和