Question

excel中VBA textbox换行问题。

我想要做的效果是这样，第一次在textbox1中输入内容，比如说 abc ，在（1.1）这个单元格，第二次在textbox1中输入def， 显示在（2.1）这个单元格，以此类推。有没有哪位大神有什么可以帮忙一下？需要代码。初次接触VBA，最好是发一下全部代码，谢谢。

Answer 1

创建TextBox1 和CommandButton1
sub CommandButton1_Click()
dim n as integer
dim str as string
n=sheets(1).usedrange.rows.count+1
str=textbox1.text
sheets(1).cells(n,1)=str
end sub

Answer 2

sub CommandButton1_Click()

dim n as integer

dim str as string

n=sheets(1).range("a65536").end(xlup).row+1

str=textbox1.text

sheets(1).cells(n,1)=str

end sub