Excel VBA自动填充栏

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

'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)) 

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

我想做的事：

我会find最后一个有效的单元格，然后select活动单元格和它下面3行的单元格，然后自动填充右侧的一个单元格。

在图片中看起来像这样：

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

2. select下面3行的活动单元格和单元格：

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

Answer 1

这是一种方法。 无需select

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