高手菜鸟都来学习学习交流怎么能这公式好吗？

穷人靠网络致富

    下面的公式用起来就这样的效果，达不到我想要的效果。谁能帮我改成下面那个图的效果Private Sub Worksheet_Change(ByVal Target As Range)
x = Target.Row
y = Target.Column
If y < 3 Then
    y = y + 1
    If y = 3 Then y = 1: x = x - 1
    Cells(x, y).Select
End If
End Sub

fifasnake

Private Sub Worksheet_Change(ByVal Target As Range)
x = Target.Row
y = Target.Column
If y < 3 Then
    y = y + 1
    If y = 3 Then y = 1: x = x + 1
    Cells(x, y).Select
End If
End Sub

你是指的这个意思吗？改了一点点