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

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 

即使你不说的话，它看起来像你想要的文本框也将被清除。如果是，则在End Sub之前添加TextBox1.Text = ""一行。