excel vba 如何让他自动顺延换行

Question

描述：我建立了5个输入的TEXT BOX,对应五个项目A B C D E，然后5个TEXT BOX中输入的内容分别是对应到ABCDE列下面的内容。怎样能让我输入完一遍，按确定后，在ABCDE下面显示之后，再次输入的时候会自动跳到下一行呢？

比如，我输入了“甲乙丙丁卯”，按确定，内容在A2B2C2D2E2中显示，再次输入其他内容后，希望他自动在A3 B3 C3 D3 E3中显示。。。

Answer 1

不存在换行，每次点击确定的时候都选则最后一个有值行的下一行。
（和楼上的思路一样）

双击确认按钮，输入以下代码

Dim i As Integer
i = Sheets("xxx").[a65536].End(xlUp).Row + 1 最后一个有值行的下一行
Range("a" & i) = textbox1.Text 赋值
.省略其他.

xxx为你要输入数据的工作表名称。

Answer 2

用Activesheet.[a65536].end(xlup).row

定位最后一个有数据的单元格

然后Activesheet.[a65536].end(xlup).row+1
就是你要输入数据的目标单元格