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

Question

每次我将数据输入到单元格A4中时，它都会进入A5。我需要这个能够直接回到A4或者在没有移动的情况下留在A4上。每次我将数据输入A4时都需要进行此操作。我无法找到一种方法来完成这项工作。任何帮助表示赞赏。

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

Answer 1

删除代码

的代码行

IconButton

我一开始以为你实际上没有宏观做移动，你只想要一种方法来停止Excel 自动当你按Enter键时选择下面的单元格，这很容易通过更改选项来停止：

Answer 2

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

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