创建用于在VBA上单击按钮时移动到下一行的代码

Question

我在B列中有一组值，其中B2是自动选择的。我想创建一个宏，在点击Button1时，选择将移动到单元格B3;另一次单击和B4，依此类推，每次都要求单击Button1以向下移动到下一行，直到当前单元格为空。

非常感谢...我还是VBA新手

Private Sub CommandButton1_Click()
    Range("b2").Select
    For Each cell In Range("b:b")
        If cell.Value = "" Then Exit For
        cell.Offset(1, 0).Select
    Next
End Sub

Answer 1

怎么样：

Private Sub CommandButton1_Click()
    If Not Intersect(ActiveCell, Range("B:B")) Is Nothing Then
        If ActiveCell.Offset(1, 0) <> vbNullString Then
            ActiveCell.Offset(1, 0).Select
        End If
    End If
End Sub