亲，这个只有在对应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
