Excel VBA 增加行/列

Question

http://imgur.com/zEm7hT7

在我的圖像中，我有我的表單，在將信息輸入文本框並按 Enter 鍵后，會將信息放置在標題下方的正確位置，我想要做的是有一個向下一行的下一個按鈕，然后一個后退按鈕，將上升一行並允許我將信息輸入到“數據庫”中，或者我希望它在單擊“輸入”時自動跳下一行。 我已經看過了，但找不到任何符合我要求的內容，而且回復很棒，謝謝。

這是我到目前為止。

Private Sub CommandButton1_Click()
Dim x As Integer
x = Cells(1, 1).End(xlDown).Row + 1
Cells(x, 1) = TextBox1.Value
Cells(x, 2) = TextBox2.Value
Cells(x, 3) = TextBox3.Value
Cells(x, 4) = TextBox4.Value
Cells(x, 5) = TextBox5.Value
End Sub

Answer 1

用查找下一個空行替換x=2

If Cells(2,1) = "" Then
    x = 2
Else
    x = Cells(1,1).End(xlDown).Row + 1
End If