将文本框中的内容复制并粘贴到工作表单元格区域？

Question

我正在开发一个VBA项目，以便为服务台查询跟踪器自动化Excel工具。单击命令按钮后，我希望将内容从文本框复制到另一个工作表行。如果我重复该任务，文本框内容应保存在同一行的下一个空单元格中。

我使用了这个宏：

Private Sub CommandButton1_Click()
    TextBox1.Text = ""
    TextBox1.Copy
    'TextBox2.Copy
    'TextBox3.Copy
    Range("A2").Select
    Do
        If IsEmpty(ActiveCell) = False Then
            ActiveCell.Offset(1, 0).Select
        End If
    Loop Until IsEmpty(ActiveCell) = True
End Sub

Answer 1

你真的只需要一行代码：

Private Sub CommandButton1_Click()
    Range("A2").End(xlDown).Offset(1, 0).Value = TextBox1.Text
End Sub

即使您没有这样说，看起来您也希望清除文本框。如果是，请在TextBox1.Text = ""之前添加End Sub一行。