Question

exceel 中vba 窗体怎么实现 点击命令按钮 将文本框内的内容保存到工作表中，并且依次向下保存

Answer 1

方法1:

Private Sub CommandButton1_Click()
With Sheets(1)
    Row = .Range("A65536").End(xlUp).Row
    If Row = 1 And .Range("A" & Row) = "" Then Row = 0
    .Range("A" & Row + 1).Value = TextBox1.Value
End With
End Sub

方法2:

Dim N As Long
Private Sub CommandButton1_Click()
N = N + 1
Sheets(1).Range("A" & N).Value = TextBox1.Value
End Sub

追问

用方法1：如果c2空着 再次运行的时候会吧c2先补上 

怎么样实现以A列当参照，如果A3有有内容，不会保存到c2，而是保存到c3

追答

Private Sub CommandButton1_Click()
With Sheets(1)
Row = .Range("A65536").End(xlUp).Row
If Row = 1 And .Range("A" & Row) = "" Then Row = 0
.Range("C" & Row + 1).Value = TextBox1.Value
End With
End Sub

代码的原理是先获得指定列(这里指定的是A列)的最后一个有数据的单元格的行号,然后呢依据这个行号写数据到你指定的列(这里指定的是C列)的这一行的下一行.

你可以根据你的需要修改代码,以符合你的使用要求.

这个代码不会检测A列中是否有空格.只能检测到A列最后一个有数据的行.

如果需要检测指定列的中间的空行要修改代码,用循环语句,逐个单元格检测.

追问

就是根据A列保存，其他列如果有空的单元格就跳过，保存到于A列内容的同一行，循环下去

追答

既然你自己不知道怎么修改
那么你说清楚你要保存什么样的数据,怎么保存.我帮你修改吧.