Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何使自动填充在VBA中工作?_Vba_Autofill - Fatal编程技术网

如何使自动填充在VBA中工作?

如何使自动填充在VBA中工作?,vba,autofill,Vba,Autofill,我正在尝试让自动填充选项工作。对于一种情况,我只需要复制单元格中的值。另一种是公式(但我想这与复制值的作用相同?) 这将选择我要复制的单元格,一直复制到B列中最后一个填充的单元格 Range("A1048576").End (xlUp) 仅仅添加filldown选项不起作用。.Select或.Value的任何组合都不起作用 当我试图通过使用这段代码来简化它时,filldown选项也不起作用 Range("A11").Select Selection.Filldown 有人有主意了吗?如果您可

我正在尝试让自动填充选项工作。对于一种情况,我只需要复制单元格中的值。另一种是公式(但我想这与复制值的作用相同?)

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

Range("A1048576").End (xlUp)
仅仅添加filldown选项不起作用。.Select或.Value的任何组合都不起作用

当我试图通过使用这段代码来简化它时,filldown选项也不起作用

Range("A11").Select
Selection.Filldown

有人有主意了吗?

如果您可以使用宏录制器执行此类任务,然后编辑结果以删除
选择
活动单元格
,这总是好的:

Option Explicit

Sub Makro1()

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

End Sub

你只有一个手机。Filldown需要一个单元格区域来填充-
range(“A1:A11”)。Filldown
将取A1中的值,并将其填充到A11。