Скопируйте диапазон с помощью косвенного

Question

Нужно построить макрос для копирования и вставки данных. Длина столбца данных для копирования будет изменяться, поэтому я пытаюсь найти способ сбора этих данных. Я подумал, что было бы хорошим началом поместить формулу непосредственно на лист, чтобы задать диапазон, поэтому мне интересно, как мне скопировать диапазон, расположенный в моей ячейке N1.

Answer 1

Надеюсь, этот код будет хорошим началом:

Sub CopyPaste()
    Dim rngCopy             As Excel.Range
    Dim rngPaste            As Excel.Range

    With Sheet1
        Set rngCopy = .Range(.Range("N1").Value)
        Set rngPaste = .Range("A1")
        rngCopy.Copy
        rngPaste.PasteSpecial (xlPasteAll)
    End With
End Sub

Этот код предполагает, что вы копируете данные из диапазона, указанного в ячейке N1, и вставляете их в ячейку A1 (вы можете легко изменить их).изменив параметр rngPaste).

Дайте мне знать, если у вас есть какие-либо вопросы.Береги себя.