Excel 如何从另一个工作簿复制单元格的动态范围，并将其粘贴到另一个工作簿？

每当第三方向我发送其输入的更新版本时，我需要更新我的主文件。 因此，我需要将此新输入的范围复制粘贴到计算机上保存的工作簿中。如果A列中的值大于0，则范围需要包括所有列和所有行。例如，在下图中，从A1到A45

我找到了一种选择行并在第一个零处停止的方法。我在代码I中调用的那一边放了一个sumprodcut公式

目前，我有以下代码：

我在wb1.Sheets（“Accounts_latest”）行（“A1:BW&I”）上有一个错误。复制，我无法修复它。。。你知道吗

让我知道：）

安托万

Sub CopyPaste()

    Dim wb1 As Workbook
    Dim wb2 As Workbook

    'Open Workbook from Pepper

    Set wb1 = Workbooks.Open("G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Accounts latest\Accounts updated\Accounts_latest.xlsx")

    'Copy Range (Column A to BW - all filled rows)
    Dim i As Integer
    i = Sheets("Accounts_latest").Range("CA1").Value
    wb1.Sheets("Accounts_latest").Range("A1:BW & i").Copy

    'Paste to worksheet in workbook2:
    Set wb2 = Workbooks("20200403 Selina - Loanbook V2.09 (1).xls")
    wb2.Activate
    wb2.Sheets("Pepper Accounts RAW").Range("A1:BW").PasteSpecial Paste:=xlPasteValues
    Range("A1").Select

    'Close workbook
    wb1.Close savechanges:=True
    Application.DisplayAlerts = True

End Sub

试试这个：

 wb1.Sheets("Accounts_latest").Range("A1:BW" & i).Copy

或

及

或

或

---

wb1.Sheets（“Accounts_latest”）.Range（“A1:BW”&i）.复制

。非常感谢您的帮助，现在这个问题已经解决了，我仍然收到错误

wb2.Sheets（“Pepper Accounts RAW”）.Range（“A1”）.Paste特殊粘贴：=xlPasteValues

您可能会错过BW&i的wb2.Sheets中的“i”，请参见上文重新编辑@安托万·博宁

 wb1.Sheets("Accounts_latest").Range("A1","BW" & i).Copy

wb2.Sheets("Pepper Accounts RAW").Range("A1").PasteSpecial Paste:=xlPasteValues

wb2.Sheets("Pepper Accounts RAW").Range("A1:BW" & i).PasteSpecial Paste:=xlPasteValues

wb2.Sheets("Pepper Accounts RAW").Range("A1").Resize(i,1).PasteSpecial Paste:=xlPasteValues