时间戳

首页 > 解决方案 > VBA 代码以获取最正确的非空白单元格

excel - VBA 代码以获取最正确的非空白单元格

问题描述

我正在使用 MS Excel 2007，我遇到了我在下面描述的内容

假设我在“A”、“D”列中有数据。excel表格中的“H”，“J”，“L”，“P”，所有这些列都有数百行数据。在这种情况下，单元格“A4”被选中，我需要转到单元格“P4”，如果我必须通过手动击键去那里，就像按 'Ctrl+Right Arrow' 5 次. 但是这个从“A4”移动到“P4”的过程的VBA代码是什么（不敲击键）？对此的帮助将不胜感激！先感谢您。

标签： excelvba

解决方案

您不必模拟击键：

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

顺便说一句，尽量避免.Select，即如果没有明确想要

推荐阅读