如何将VBA窗体textbox的数据通过按钮保存到excel中?

并且实现每次保存都在上一次保存的下一行。
就是行数自动加1的问题。
我做的是每次数据存好之后，表示行数的变量+1，但是还是实现不了。
嗯，谢谢各位啦！
但不知道哪个运行的更快一些。
因为有数据的单元格肯定没有空单元格多，从最后一行往上数应该会慢一些吧？

取得表格的最后一行：
比如：sheet1的A列的最后有记录的一格：
dim c as range
set c=sheet1.range("A65536").END(XLUP) '取得A列最后一格
c.offset(1,0).value="我的新数据" '为下一行赋值

Private Sub CommandButton1_Click() Dim m As Integer m = 1 While (Sheets("Sheet1").Cells(m, 1) <> 0) m = m + 1 Wend Sheets("Sheet1").Cells(m, 1) = TextBox1.Value End Sub

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

给你一个例子， “假如数据存放于a列， 在b1输入=counta(A:A)” 代码 sub aa() a=sheet1.cells(1,2) 或用a=application.worksheetfunction.counta(sheet1.range("A:A")，这样 “”里的内容就不用了 sheet1.cells(a,1)=userform1.textbox1.value end sub 不错不错！ 如果数据量不大话，差异不会太明显，不必过于追求。如果数据量很大话，要减少对单元格的读写。这样提升速度会很明显

Private Sub CommandButton1_Click() Cells(Rows(65000).End(xlUp).Row + 1, 1) = TextBox1.Text End Sub 你看看 是不是这个意思