如果原始数据在第2列
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Text <> "" Then
Target.Offset(-1, 1).Copy Target.Offset(0, 1)
Target.Offset(-1, 2).Copy Target.Offset(0, 2)
Target.Offset(-1, 3).Copy Target.Offset(0, 3)
Target.Offset(-1, 4).Copy Target.Offset(0, 4)
End If
End If
End Sub