Excel VBA 換行?

我要輸入的資料儲存格順序是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

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

1 個解答

評分
  • 2 月前
    最愛解答

    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

還有問題嗎?立即提問即可得到解答。