Visual Basic / Excel：如何选择相对单元格？

Question

在我录制的宏中，我希望它能够连续选择第二个单元格（B列）。

因此，如果选择A7，宏将选择A2，
如果选择H4，宏将选择H2。

Answer 1

考虑：

Sub dural()
    Cells(2, ActiveCell.Column).Select
End Sub

或选择 2

列

Sub qwerty()
    Cells(ActiveCell.Row, 2).Select
End Sub

Answer 2

您需要一个工作表事件。未经测试但应该朝着正确的方向前进

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 2 Then
   Range(Target.Column.Offset(0,1)).Select
Elseif Target.Column > 2 Then
   Range(Target.Offset(0,2-Target.Column)).Select
End If
End Sub