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行找到最后一个有效单元格：



1. 选择下面3行的活动单元格和单元格：



1. 将一个单元格自动填充到右侧

Answer 1

这是一种方法。无需选择

Sub x()

Dim r As RANGE

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

End Sub