Excel VBA 跨列自动填充

Posted 2023-02-24

【中文标题】Excel VBA 跨列自动填充

【英文标题】：Excel VBA Autofill across columns

【发布时间】：2017-05-16 08:45:16

【问题描述】：

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

'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 行中的单元格，然后自动填充一个单元格到右侧。

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

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

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

自动向右填充一个单元格

【参考方案1】：

这是一种方法。无需选择

Sub x()

Dim r As RANGE

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

End Sub

【讨论】：

非常感谢！正是我想要的。