如果第一行被填充，则让Excel切换到下一行

我正在学Excel VBA，我只是碰壁了。

我有一个电子表格，我build立了一个UserForm。 此用户表单将行14从A填充到AK。

现在我已经能够使用此代码复制表单中的数据（其中的一部分是完全复制的方式）：

'Date Sheet1.Range("A14") = DTPicker1 'AC Type Sheet1.Range("b14") = ComboBox1 'AC Reg Sheet1.Range("C14") = TextBox3 'Pic Sheet1.Range("d14") = TextBox5 'co-pilot Sheet1.Range("e14") = TextBox4 'from Sheet1.Range("f14") = TextBox7 'to Sheet1.Range("g14") = TextBox6 'remarks Sheet1.Range("h14") = TextBox8 

现在我想要做的是如果A14被填充，那么在14中写入的所有内容都会切换到15，依此类推。

有什么办法可以做到这一点？

Answer 1

沿着这些线应该工作（未经testing）：

 Static rng As Range If rng Is Nothing Then Set rng = Sheet1.Range("A14") Do While rng.Value <> "" Set rng = rng.Offset(1) Loop End If 'Date rng.Range("A1").Value = DTPicker1 'AC Type rng.Range("B1").Value = ComboBox1 'AC Reg rng.Range("C1").Value = TextBox3 'Pic rng.Range("D1").Value = TextBox5 'co-pilot rng.Range("E1").Value = TextBox4 'from rng.Range("F1").Value = TextBox7 'to rng.Range("G1").Value = TextBox6 'remarks rng.Range("H1").Value = TextBox8 'Point to the next line Set rng = rng.Offset(1)