Как настроить диапазон копий при вставке из одной книги в другую?

Question

Как мне установить диапазон копий от ячеек B28 до Q33?Я пытаюсь скопировать определенный диапазон ячеек из одной рабочей книги в другую.С моим кодом ниже я продолжаю копировать большую часть листа.

Sub Button1_Click()

    Dim wsSource As Worksheet, wsTitle As Worksheet
    Set wsSource = Workbooks("New Initiative Template v1_30_2019.xlsm").Worksheets(2)
    Set wsTarget = Workbooks("PMO Automation.xlsm").Worksheets(2)

    Dim sourceTitle As Range
    Set sourceTitle = wsSource.Range(wsSource.Range("C30"), wsSource.Cells(Rows.Count, 30).End(xlUp))

    Dim sourcePjstatus As Range
    Set sourcePjstatus = wsSource.Range(wsSource.Range("Q1"), wsSource.Cells(Rows.Count, 33).End(xlUp))

    sourceTitle.Copy Destination:=wsTarget.Cells(Rows.Count, 2).End(xlUp).Offset(2)
    sourcePjstatus.Copy Destination:=wsTarget.Cells(Rows.Count, 3).End(xlUp).Offset(2)

End Sub

Answer 1

Option Explicit

Sub Button1_Click()

    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim wb1 As String
    Dim wb2 As String
    Dim sourceTitle As Range
    Dim sourcePjstatus As Range

    wb1 = "New Initiative Template v1_30_2019.xlsm"
    wb2 = "PMO Automation.xlsm"

    Set wsSource = Workbooks(wb1).Worksheets(2)
    Set wsTarget = Workbooks(wb2).Worksheets(2)

    Debug.Print """sourceTitle"""
    Debug.Print vbTab; "Source Range:"
    Debug.Print vbTab; wsSource.Range(wsSource.Range("C30"), wsSource.Cells(Rows.Count, 30).End(xlUp)).Address
    Debug.Print vbTab; "Target Cell:    "
    Debug.Print vbTab; wsTarget.Cells(Rows.Count, 2).End(xlUp).Offset(2).Address
    Debug.Print
    Debug.Print """sourcePjstatus"""
    Debug.Print vbTab; "Source Range:"
    Debug.Print vbTab; wsSource.Range(wsSource.Range("Q1"), wsSource.Cells(Rows.Count, 33).End(xlUp)).Address
    Debug.Print vbTab; "Target Cell:    "
    Debug.Print vbTab; wsTarget.Cells(Rows.Count, 2).End(xlUp).Offset(2).Address
    Debug.Print

    'refers to the last cell in column AD: wsSource.Cells(Rows.Count, 30).End(xlUp)
    'correct? intended?
    Set sourceTitle = wsSource.Range(wsSource.Range("C30"), wsSource.Cells(Rows.Count, 30).End(xlUp))

    'refers to the last cell in column AG: wsSource.Cells(Rows.Count, 33).End(xlUp))
    'correct? intended?
    Set sourcePjstatus = wsSource.Range(wsSource.Range("Q1"), wsSource.Cells(Rows.Count, 33).End(xlUp))

    sourceTitle.Copy Destination:=wsTarget.Cells(Rows.Count, 2).End(xlUp).Offset(2)
    sourcePjstatus.Copy Destination:=wsTarget.Cells(Rows.Count, 3).End(xlUp).Offset(2)

End Sub

Ваш код действительно работает.Я полагаю, что вы не собираетесь копировать ячейки, адреса которых вы указали:

"sourceTitle"
    Source Range:
    $C$1:$AD$30
    Target Cell:
    $B$5

"sourcePjstatus"
    Source Range:
    $Q$1:$AG$1
    Target Cell:
    $B$5

Определение метода копирования является простым:

copyRange.Copy Место назначения: = destinationRange

Sub CopySample()
Dim copyRange as Range
Dim destinationRange as Range

set copyRange        = Workbooks("workbook1.xlsx").Sheets("Sheet1").Range("A1:D4")
set destinationRange = Workbooks("workbook2.xlsx").Sheets("Sheet2").Range("B8")

copyRange.Copy Destination:=destinationRange
End Sub

Ниже приведен скриншот с результатом: