创建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
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