Excel VBA 換行?

Question

我要輸入的資料儲存格順序是B2→C2→D2→B3→C3→D3......

輸入的方式是：B2 輸入完後按鍵盤右鍵輸入C2，再按右鍵輸入D2，再按右鍵跳到B3，但若是B2=0，就不用輸入C2和D2，直接往下跳到B3，若B3=0，就跳B4B4不為0，就回到原本C4→D4→B5....請問這樣要如何用VBA寫出來呢？試了很久都做不出來，一直卡在B行等於0，沒有辦法正確做出我想要的換行，請教各位了～謝謝!!

已更新項目:

原本是使用

Sub 清除()

Range("B2:D31").ClearContents

End Sub

把資料刪除會直跑出錯誤....

Answer 1

最佳解答

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row > 1 And Target.Column < 5 Then

If Target.Column = 2 And Target = 0 Then Cells(Target.Row + 1, 2).Select

If Target.Column = 4 Then Cells(Target.Row + 1, 2).Select

End If

End Sub