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下方时受控“失控”A使用的单元格限制

VBA将光标向下移动到在A列中具有值的下一行？

2 个答案: