Я пытаюсь скопировать диапазон с переменными аргументами

Question

Я безуспешно пытался выполнить следующее.

Sub TestRange ()

Dim Пример как диапазон

Dim RangeStart As Long

Dim RangeEnd AsДлинный

RangeStart = ActiveSheet.Cells (1, 1)

RangeEnd = ActiveSheet.Cells (3, 4)

Dim ws As Worksheet

Установитьws = Worksheets ("Sheet5")

С ws

example = ws.Range("E" & .Rows.Count).End(xlUp).Row

Set example = Range(.Cells(RangeStart, 1), .Cells(RangeEnd, 8))

Конец с

пример. Выберите

Выбор. Копия

End Sub

Answer 1

Вам не хватает . в .Range, которое определяет область копирования в блоке With / End With.

Dim example As Range
Dim RangeStart As Long, RangeEnd As Long

RangeStart = ActiveSheet.Cells(1, 1)
RangeEnd = ActiveSheet.Cells(3, 4)

With Worksheets("Sheet5")

    'I don't know what the following is intended to do - it has no purpose
    'example = ws.Range("E" & .Rows.Count).End(xlUp).Row

    Set example = .Range(.Cells(RangeStart, 1), .Cells(RangeEnd, 8))

End With

example.copy