以编程方式自动填充一列

我的目标应该很容易。 只是自动填充一列到特定的行：

Range("A3:C3").Select Selection.AutoFill Destination:=Range("A3:C" & RowCount) 

该代码块完美的作品。 但是我想要的是自动填充三个列，因为每个都有不同的RowCount 。 我试过了：

 Range("A3").Select Selection.AutoFill Destination:=Range("A3:A" & RowCount) 

但是我得到Run-time error '1004': Method 'Range' of object '_Global' failed

Answer 1

下面的代码对我来说没有问题。 我遇到的错误信息只能通过将rowcount设置为产生无效地址的值（如“A3：A0”）来使其失败。

  Sub FillIt() Dim RowCount As Long RowCount = 10 Range("A3:A4").AutoFill Destination:=Range("A3:A" & RowCount) End Sub 

如何使用.Autofill方法填充该系列有几个选项。

上面的代码假设所需范围的前两个单元格包含该系列的前两个值。 例如，如果A3 = 1，A3 = 2，则Excel将假定您想要一系列连续的整数1,2,3 ……。如果值为1并且为空，则结果序列将为1，空白， 1，空白等

可以用可选的“types”参数来指定系列将被填充的方式。 代码中的填充方法等同于设置Type:=xlFillDefault 。 还有其他几种可用的填充types，如xlFillSeries，xlFillCopy和xlFillLinearTrend。 有关这些的完整列表，请参阅Microsoft的参考页面 。