Vba 应用程序。输入框，用于输入复制和粘贴选项的范围

我一直在尝试从一张图纸复制和粘贴到另一张图纸，通过粘贴链接功能复制单元格，同时使用输入框让用户输入他想要粘贴复制数据的范围。代码在同一个工作表中工作，但不能在不同的工作表上工作。即使有效，它也无法识别我在输入框中输入的范围。相反，它会识别光标并粘贴光标，从而使光标位于目标工作表中

这是我用于从第1页复制和粘贴到第2页的代码。代码是否存在任何问题，为什么它无法识别我在输入框中输入的范围

Sub tryuserinput()


Dim rng As Range
Dim inp As Range

Selection.Interior.ColorIndex = 37
Set inp = Selection

Set rng = Application.InputBox("Copy to", Type:=8)
inp.Copy

rng.Select

Worksheets("Sheet2").Paste Link:=True

End Sub

---

修改是因为…我没有研究。在其他工作表中选择范围后，只需使用这行代码

inp.Copy Destination:=ThisWorkbook.Sheets("Sheet2").Range(rng.Address)

---

这就是你想要的吗

Sub Sample()
    Dim rng As Range, inp As Range

    '~~> Check if what the user selected is a valid range
    If TypeName(Selection) <> "Range" Then
        MsgBox "Select a range first."
        Exit Sub
    Else
        Set inp = Selection
        inp.Interior.ColorIndex = 37
    End If

    Set rng = Application.InputBox("Copy to", Type:=8)

    If Not rng Is Nothing Then
        rng.Parent.Activate
        rng.Select

        inp.Copy
        ActiveSheet.Paste Link:=True
    End If
End Sub

子样本（）
变暗rng As范围，inp As范围
“~~>检查用户选择的范围是否有效
如果TypeName（选择）“范围”，则
MsgBox“首先选择一个范围。”
出口接头
其他的
设置inp=选择
inp.Interior.ColorIndex=37
如果结束
设置rng=Application.InputBox（“复制到”，类型：=8）
如果不是，那么rng什么都不是
rng.Parent.Activate
rng.选择
复印件
ActiveSheet.Paste链接：=True
如果结束
端接头

它会给我一条erorr消息，如“工作表类的粘贴方法失败”，请尝试将输入框下方的所有内容更新为该消息。代码有效，但单元格之间不相互引用。有没有办法合并粘贴链接？非常感谢你！