复制范围结束 xl 向下粘贴不同的 Wb

Question

我有一个宏记录器代码（带有 select 并激活），我正试图对其进行简化。目前看起来像这样：

Windows("Stambestand.xlsm").Activate
Range("AA2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
    Windows("Ijking document.xlsm").Activate
    Range("B3").Select
    ActiveSheet.Paste

最近我开始使用变量并希望 trim 简化代码。我的思路是这样的：

WbStambestand.WsStam.Range("AA2", Selection, Selection.End(xlDown)).Copy WbIjk.WsIjk.range("A1").paste

Workbooks("WbStambestand").Worksheets("WsStam").Range("AA2", Selection, Selection.End(xlDown)).Copy

但是，这些不起作用。我希望你们能帮助我。非常感谢。

仅供参考，这些是我的变量（已声明）。 Ijk 是粘贴目的地。

Dim WbStambestand, WbIjk As Workbook 
Dim WsIjk, WsStam As Worksheet

Set WsIjk = ActiveSheet 
Set WbIjk = ActiveWorkbook
Set WsIjk = ActiveSheet
Set WbIjk = ActiveWorkbook
Set WbStambestand = Workbooks.Open(stam)
Set WsStam = WbStambestand.Worksheets("stambestand")

Answer 1

试试这个

    Sub abc()
    Dim WbStambestand As Workbook
    Dim WbIjk As Workbook
    Dim WsIjk As Worksheet
    Dim WsStam As Worksheet
    Dim LastRow As Long
    Dim stam As String

    stam = "C:\Users\Admin\Desktop\Stambestand.xlsm" ' path with complete file name with extension.
    Set WsIjk = ActiveSheet
    Set WbIjk = ThisWorkbook ' workbook which has current code
    Set WbStambestand = Workbooks.Open(stam)
    Set WsStam = WbStambestand.Worksheets("stambestand")

    LastRow = WsStam.Range("AA2").End(xlDown).Row
    WsStam.Range("AA2:AA" & LastRow).Copy WsIjk.Range("B3")
    End Sub

复制范围结束 xl 向下粘贴不同的 Wb

copying range end xl down pasting different Wb

variables

vba

copy

paste