vba - Excel 宏提供输入框，创建新工作表，将数据从原始工作表复制到新工作表

Question

我正在尝试创建一个宏，一旦单击按钮就会显示一个输入框，只需说“你想调用什么新工作表？”，然后一旦用户输入名称，Excel 就会创建一个新工作表姓名。

但是，我希望将原始工作表中的数据复制到用户指定的新工作表中。

我有输入框工作，使用以下代码:

Sub NewSheet()

Sheets.Add.Name = InputBox("What Would You Like to Call the New Sheet?")    

End Sub

Answer 1

试试下面的代码:

    Sub NewSheet()

    Dim origSht             As Worksheet
    Dim destSht             As Worksheet

    On Error GoTo eHandle

    Set origSht = ActiveSheet

    Sheets.Add.Name = InputBox("What Would You Like to Call the New Sheet?")
    Set destSht = ActiveSheet

    origSht.Cells.Copy Destination:=destSht.Cells

Exit Sub

eHandle:

    MsgBox "You must name the new sheet"
    set origSht = nothing
    set destSht = nothing

End Sub