链接变量，代表具有多个输入框的行

Question

我有一个带有两个输入框的宏。

我想执行以下操作：使用第一个输入框，输入数字。使用第二个输入框，输入第二个数字。复制与行号相关的行。

例如，用户在第一个输入框中输入数字1，在第二个输入框中输入数字2。我想同时复制第1行和第2行。用我当前的宏复制第12行。

我认为问题出在行：Rows(Chosennumber & Chosennumber2).Copy

Sub selectlinefiletemplat()
    Dim Chosennumber As Integer
    Dim Chosennumber2 As Integer

    On Error GoTo NothingChosen

    Chosennumber = Application.InputBox( _
      prompt:="Type in a number", _
      Default:="Type your number here", _
      Type:=1)

    Chosennumber2 = Application.InputBox( _
      prompt:="Type in a number", _
      Default:="Type your number here", _
      Type:=1)

    Rows(Chosennumber & Chosennumber2).Copy

    Exit Sub

    NothingChosen:
        MsgBox "You didn't choose anything!"
End Sub

Answer 1

尝试使用Application.Union：

Application.Union(Rows(Chosennumber), Rows(Chosennumber2)).Copy

您做错了，因为&连接字符串，所以当您输入1和2时，连接是12：）