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

方法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