Excel VBA自动填充跨列

Question

我想在下面的自动填充代码中编辑范围，但不确定如何。

'find last used cell in the row to the right
Range("B59").End(xlToRight).Select

'auto fill the formula for "Total TV"
ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset(0, 1))

目前，该代码查找行中最后一个有效的单元格，然后自动向右填充一个单元格。

我想做的事：

我将找到最后一个有效的单元格，然后选择活动单元格以及它下面3行中的单元格，然后自动填充右侧的一个单元格。

在图片中看起来像这样：

1. 在第59行中找到最后一个有效单元格：

2. 选择活动单元格，然后在下面的3行中选择单元格：

3. 自动填充右侧的一个单元格

Answer 1

这是一种方法。 无需选择

Sub x()

Dim r As RANGE

Set r = RANGE("B59").End(xlToRight)
r.Resize(4).AutoFill r.Resize(4, 2)

End Sub