选择相对于活动单元格的多行答案

【问题标题】：Selecting multiple rows relative to active cell选择相对于活动单元格的多行
【发布时间】：2019-10-18 01:08:00
【问题描述】：

我正在尝试创建一个 VBA 宏来

选择活动单元格上方的两行
然后自动将两个选定的行向下填充。

ActiveCell.EntireRow.Offset(-2, 0).Select 选择整行（活动单元格上方的 2 行），但我希望它也选择该行下方的行。录制的宏：

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

我希望它采用上面选定的两个行，而不是行的绝对值（行 142:144）。

【问题讨论】：

你想用所选单元格的行内容自动填充上面的两行吗？

标签： excel vba

【解决方案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

【讨论】：