Vba 在excel中重复宏

我是VBA for Excel的新手，很惭愧地承认，到目前为止我还不明白自己读了些什么！ 我试图从一张纸复制粘贴到另一张纸上，然后将第二张纸的结果重新复制到第一张纸上。我有大约5300个项目，我希望复制粘贴从原来的工作表。以下是录制的宏结果：

Sub Retreive_Code()
    Range("L11").Select
    Selection.Copy
    Windows( _
        "Unique License plate Valuation Algorithm.18March2014.V7.0.Winner!.xlsx"). _
        Activate
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Complete Unique number sales.2010 - 2012.xlsx").Activate
    Range("M11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

如果你有任何问题，请告诉我。

---

非常感谢

请避免使用

。选择/。激活

这就是你想要的吗

未经测试

Sub Retreive_Code()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet

    '~~> Set your workbooks here
    Set wb1 = Workbooks("Unique License plate Valuation Algorithm.18March2014.V7.0.Winner!.xlsx")
    Set wb2 = Workbooks("Complete Unique number sales.2010 - 2012.xlsx")

    '~~> Change these to the respective sheets
    Set ws1 = wb1.Sheets("Sheet1")
    Set ws2 = wb2.Sheets("Sheet1")

    '~~> Do the copy pasting
    With ws2
        ws1.Range("D12:D5283").Value = .Range("L12:L5283").Value

        DoEvents

        .Range("M12:M5283").Value = ws1.Range("L12:L5283").Value
    End With
End Sub

---

如果您有任何问题，请告诉我

-我们没有任何问题。你有什么问题要问我们吗？我当然有！我需要知道如何使用VBA在列的整个长度上复制此公式。您要复制哪些范围以及需要将其粘贴到哪里？我需要粘贴以下范围（L12:L5283）并将结果粘贴到（K12:K5283）抱歉，将结果粘贴到（M12:M5283）

Range1.Value=Range2.Value

imo比复制然后粘贴同等大小的范围要好。否则，一个干净的答案是：）真的@Cor_blemey。更新内容：）