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

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

我想做的事情：

我会找到最后一个有效单元格，然后 select 活动单元格及其下方 3 行的单元格，然后自动向右填充一个单元格。

在图片中它看起来像这样：

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

select 个活动单元格和下面 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

Excel VBA 跨列自动填充

Excel VBA Autofill across columns

excel

vba

autofill