将粘贴数据从一张表复制到任何其他工作表

您好，我有这个代码，只复制粘贴从表1 1到表2的数据。

Sub CopyPasteCumUpdate() Dim rng As Range, inp As Range 'to remove 0 values that may be a result of a formula or direct entry. Set rng = Nothing Set inp = Selection inp.Interior.ColorIndex = 37 On Error Resume Next Set rng = Application.InputBox("Copy to", Type:=8) On Error GoTo 0 If TypeName(rng) <> "Range" Then MsgBox "Cancelled", vbInformation Exit Sub Else rng.Parent.Activate rng.Select inp.Copy Worksheets("Sheet2").Paste Link:=True Application.CutCopyMode = 0 End If End Sub 

是否可以input数据并粘贴到任何其他表，而不必硬编码？

Answer 1

从你的评论很容易。 只要改变这个部分：

 rng.Parent.Activate rng.Select inp.Copy Worksheets("Sheet2").Paste Link:=True Application.CutCopyMode = 0 

有了这个：
编辑：这是粘贴在用户select的范围内的链接。

 Application.Goto rng inp.Copy rng.Parent.Paste Link:=True Application.CutCopyMode = 0