VBA, чтобы переместить курсор вниз к следующей строке, которая имеет значение в столбце A?

Question

Столбец A содержит значения в одних строках, пустые в других.

Я нахожусь в каком-то другом столбце.В строке, в которой я нахожусь, столбец A пуст.

Я хотел бы макрос, который будет перемещать мой курсор вниз - оставаясь в текущем столбце - до тех пор, пока он не окажется в строке, где столбец A не равен пусто.

Это кажется легким, но я не знаю VBA.Любая помощь?

Answer 1

Sub MoveDownBasedOnColumnA()

  Dim CurCell As Range
  Set CurCell = ActiveCell

  Dim CurCellInA As Range
  Set CurCellInA = Me.Columns("A").Cells(CurCell.Row)

  If IsEmpty(CurCellInA.Offset(1, 0).Value) Then
    CurCell.EntireColumn.Cells(CurCellInA.End(xlDown).Row).Select
  Else
    CurCell.EntireColumn.Cells(CurCellInA.Row + 1).Select
  End If

End Sub

Answer 2

Sub a()
  i = ActiveCell.Row
  ret = i
  j = ActiveCell.Column
  While (Cells(i, 1).Value = "" And i < 16000)
    i = i + 1
  Wend
  If (i = 16000) Then i = ret
  Application.Goto Reference:=Cells(i, j)
 End Sub   

Контролируемый «побег», когда вы находитесь ниже колонки A, предел используемых ячеек