Question

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

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

Answer 1

给你一个例子，
“假如数据存放于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

不错不错！
如果数据量不大话，差异不会太明显，不必过于追求。如果数据量很大话，要减少对单元格的读写。这样提升速度会很明显

Answer 2

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

Answer 3

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

Answer 4

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

追问

c.offset(1,0)怎么解释？变量后面怎么还能跟..offset(1,0)呢？

追答

dim c as range '将C定义为一个单元格对象，对象变量，不同于普通变量
set c=sheet1.range("A65536").END(XLUP) '取得A列最后一格，取得的是一个单元格
c.offset(1,0).value="我的新数据" 'offset（）函数的作用是，取得相对 c 下面一行的单元格
''C.offset（N,M）,就是相对 C 单元格，向下移动N行，向右移动M列，的单元格