Выбор нескольких строк относительно активной ячейки

Question

Я пытаюсь создать макрос VBA, чтобы

• выделить две строки над активной ячейкой
• , а затем автоматически заполнить две выбранные строки вниз на одну.

ActiveCell.EntireRow.Offset(-2, 0).Select выделяет всю строку (на 2 строки выше активной ячейки), но я хочу, чтобы она также выделяла строку под этой. Записанный макрос:

Range("A143").Activate
Selection.AutoFill Destination:=Rows("142:144"), Type:=xlFillDefault

Вместо абсолютных значений для строк (строки 142: 144) я хочу, чтобы вместо него были взяты две выбранные строки выше.

Answer 1

Это может помочь

Dim r As Excel.Range
Dim r2 As Excel.Range

Set r = ActiveCell.EntireRow
Set r2 = ActiveCell.Offset(-2, 0).EntireRow.Resize(2)

r2.Value = r.Value   **** OR **** r.Copy r2