Textbox輸入資料後，如何儲存在特定位置？

zbc231

之前做的一表單，裡面有textbox1-textbox6,
textbox1-textbox6輸入資料後，會存放在A2-F2，
相關的寫法如下，但最近刪除textbox2-6，只留下textbox1，
寫入資料的方式改成填滿A2-A31後，變成B2-B31，如果再寫滿，就跳至C2-C31，最多到F2-F31，
請問大家，在刪除textbox2-6後，要怎麼改寫才會達成跳行儲存的效果。
謝謝大家！

1. With 工作表1
   
2.     If .Range("A2") = "" Then
   
3.        .Range("A2") = TextBox1.Text
   
4. .Range("B2") = TextBox2.Text
   
5. .Range("C2") = TextBox3.Text
   
6. .Range("D2") = TextBox4.Text
   
7. .Range("E2") = TextBox5.Text
   
8. .Range("F2") = TextBox6.Text
   
9.     Else
   
10.     .Range("A1").Select
    
11.     Selection.Range("A" & Range("A1:F30").CurrentRegion.Rows.Count + 1).Select
    
12.     ActiveCell.Offset(0, 0).Range("A1").Value = TextBox1.Text
    
13. ActiveCell.Offset(0, 1).Range("A1").Value = TextBox2.Text
    
14. ActiveCell.Offset(0, 2).Range("A1").Value = TextBox3.Text
    
15. ActiveCell.Offset(0, 3).Range("A1").Value = TextBox4.Text
    
16. ActiveCell.Offset(0, 4).Range("A1").Value = TextBox5.Text
    
17. ActiveCell.Offset(0, 5).Range("A1").Value = TextBox6.Text
    
18.     End If
    
19. End With

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

zbc231

終於可以了，謝謝你解決我的苦惱。
再次地感謝你的幫忙！