如何让自动填充在 VBA 中工作？

Posted 2023-02-24

【中文标题】如何让自动填充在 VBA 中工作？

【英文标题】：How to get autofill working in VBA?

【发布时间】：2017-07-20 07:59:55

【问题描述】：

我正在尝试使自动填充选项起作用。对于一种情况，我只需要复制单元格中的值。在其他公式中（但我想这与复制值相同？）。

这会选择我要一直复制到 B 列中最后一个填充的单元格的单元格

Range("A1048576").End (xlUp)

仅添加填充选项不起作用。 .Select 或 .Value 的任何组合也不起作用。

当我尝试使用此代码简化它时，填充选项也不起作用。

Range("A11").Select
Selection.Filldown

有人有想法吗？

【问题讨论】：

你只有一个单元格。 Filldown 需要填充一系列单元格 - Range("A1:A11").Filldown 将采用 A1 中的值并向下填充到 A11。

【参考方案1】：

如果您可以将宏记录器用于此类任务，然后编辑结果以删除Select 和ActiveCell，那总是很好：

Option Explicit

Sub Makro1()

    Range("A1").Select
    ActiveCell.FormulaR1C1 = "123"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A11"), Type:=xlFillDefault

End Sub