Скопируйте и вставьте последние 5 активных ячеек в столбец

Question

Я пытаюсь скопировать последние 5 активных ячеек в столбце D. Каждый день мы добавляем новый столбец, и сводные данные должны это отражать.

Мне нужно скопировать последние пять цифр и вставить их подряд в другой лист.

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

Range("D1000").End(xlDown).Select
ActiveCell.Offset(-4,0)

Я не могу выделить все пять цифр одновременно.

Answer 1

Приведенный ниже код является динамическим по отношению к последней строке (рассчитайте последнюю строку столбца D вместо использования фиксированного значения - 1000). Вы можете изменить и попробовать:

Option Explicit

Sub test()

    Dim LastRow As Long

    'Change worksheet name if needed
    With ThisWorkbook.Worksheets("Sheet1")
        'Find the last row of co;lumn D
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
        .Range("D" & LastRow - 4 & ":D" & LastRow).Copy
        .Range("F1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    End With

End Sub

Результаты: