excel - Excel VBA - 范围偏移

Question

我正在尝试编写一个代码，在一个单元格中插入/更新值后，将转到下一个单元格，如图所示。现在这段代码只能以一种方式工作：

ActiveCell.Offset(1,0).Select前任。从A2 to B2.

如何将偏移量返回到左侧的单元格B2 to A3- 需要像图片上那样循环。

Answer 1

我不太确定我是否明白你在看什么！我在 A 列和 B 列上设置了一个范围，直到第 10 行，仅用于测试。

每当您编辑单元格然后按 Enter 键时，此代码就会移动到图片上的下一个单元格。

将此代码放在工作表模块上

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngColA As Range: Set rngColA = Range("A2:A10")
    Dim rngColB As Range: Set rngColB = Range("B2:B10")
    
    If Not Intersect(Target, rngColA) Is Nothing Then
        Target.Offset(0, 1).Select
        exit sub
    End If

    If Not Intersect(Target, rngColB) Is Nothing Then
        Target.Offset(1, -1).Select
    End If
End Sub