Question

您好，我有这个代码，只能将第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

是否可以输入数据并将其粘贴到任何其他工作表而无需硬编码？

Answer 1

从你的评论很容易。只需更改此部分：

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

有了这个：
修改：这是将链接粘贴到用户选择的范围内。

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

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

1 个答案: