亲,这个只有在对应Sheet的Change事件里写VBA代码。
我想确认,您说的“之后”是向右第1、3、5、7,还是向下?


Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count = 1 Then
Application.EnableEvents = False
Target.Offset(1, 0) = Target
Target.Offset(3, 0) = Target
Target.Offset(5, 0) = Target
Target.Offset(7, 0) = Target
Application.EnableEvents = True
End If
End Sub
追问向后的
追答向后?只有左右上下之分……
您看一下上面的动画和代码,是向下的。
追问哦,我看动画,第二个以下的都是隔一个单元格出,没有在第1、3、5出哦
追答OK,代码修订如下:

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count = 1 Then
Application.EnableEvents = False
Target.Offset(2, 0) = Target
Target.Offset(4, 0) = Target
Target.Offset(6, 0) = Target
Target.Offset(8, 0) = Target
Application.EnableEvents = True
End If
End Sub