Vba 如何编程命令按钮以将一系列单元格复制到新工作表?

Vba 如何编程命令按钮以将一系列单元格复制到新工作表?,vba,excel,Vba,Excel,我有一个带有一些代码的用户表单 单击commandbutton 1时,它复制单元格范围并粘贴到同一工作表的sheet1 是否可以同时将其复制到保存在C:/test/master.xlsx下的另一个工作表中?此母版纸可以关闭或打开。我们将非常感谢您的帮助。当前工作表的代码如下所示: Private Sub CommandButton1_Click() Dim ssheet As Worksheet Set ssheet = ThisWorkbook.Sheets("Sheet1") nr = s

我有一个带有一些代码的用户表单

单击commandbutton 1时,它复制单元格范围并粘贴到同一工作表的sheet1

是否可以同时将其复制到保存在C:/test/master.xlsx下的另一个工作表中?此母版纸可以关闭或打开。我们将非常感谢您的帮助。当前工作表的代码如下所示:

Private Sub CommandButton1_Click()

Dim ssheet As Worksheet
Set ssheet = ThisWorkbook.Sheets("Sheet1")
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ssheet.Cells(nr, 1) = CDate(Me.TextBox1)
ssheet.Cells(nr, 2) = (Me.TextBox2)
ssheet.Cells(nr, 3) = (Me.ComboBox1)
ssheet.Cells(nr, 4) = Evaluate("=NOW()-TODAY()")

End Sub

可能的复印件请不要认为这是复制品。这是两种不同的代码。另外,我不想改变现有的代码,我希望它留在那里,但同时,相同的细节应该粘贴在另一个excel中。请帮忙。