Excel 每次输入数据时，将单元格选择移动到上方行的VBA代码

每次我把数据输入A4单元格，它就被输入到A5单元格。我需要把它移回A4，或者一直呆在A4上而不动。这需要在每次我将数据输入A4时发生。我找不到一个办法让这一切顺利。感谢您的帮助

Sub MoveUp()
'    MoveUp 
'
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "12345"
    Range("A5").Select
End Sub

---

删除代码中表示

Range("A5").Select

---

起初，我认为您实际上没有宏来执行移动操作，您只是想找到一种方法，在按Enter键时自动停止Excel选择下面的单元格，通过更改选项可以轻松停止：

---

将其放入要运行代码的工作表的工作表代码中：

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A4")) Is Nothing Then
    Application.EnableEvents = False
    Me.Range("A5").Value = Target.Value
    Target.Select
    Application.EnableEvents = True
End If
End Sub

---

请发布执行moving.Sub MoveUp（）“”MoveUp宏“”范围（“A4”）的代码。选择ActiveCell.FormulaR1C1=“12345”范围（“A5”）。在注释中选择End SubNot，编辑原始帖子以包含代码。