如何利用VBA实现excel中的表格自动换行。

Question

最近买了一本书，书上说可以利用excel制作一种人力资源查询的软件，上面可以做插件，于是乎，做了一，可是每当我点击添加时候都是在同一行添加，就是说，我添加一个信息后，再输入一个新信息，之前输入的就没有了。。。

就是说，我添加完后只在330行显示，再添加，还在330显示，之前的就被替换掉了。。
代码如下：
Private Sub CommandButton2_Click()
Dim a As Integer
If TextBox1.Value = "" Then
MsgBox "员工编号请勿空白！", vbOKOnly
Exit Sub
End If
太多了，省略。。。。。
Sheets("人事查询系统").Select
a = Cells(3, 4).Value
Cells(a + 5, 2).Value = TextBox1.Value
.....也省略。
End Sub

Answer 1

关键在a的值, 不知你的cells(3,4).value是什么?
建议用以下语句:

a=[b65536].end(xlup).row+1追问

3q，按照你的方法，问题解决了

Answer 2

汗。犯了最2的问题。就是a=cells(3,4).这个a会变么追问

大哥，小弟初学VBA肯定有不懂的地方，干嘛这么露骨呢？o(╯□╰)o

追答

超级丹都六字国骂了，国人就不要太含蓄了！

Answer 3

D3是什么