excel - 以编程方式自动填充一列

Question

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

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

该代码块完美运行。但我想要的是分别自动填充三列，因为有不同的RowCount s 为每个。我试过了:

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、空白等

可以使用可选的“类型”参数指定如何填充系列。代码中的填充方法相当于设置Type:=xlFillDefault .还有其他几种可用的填充类型，例如 xlFillSeries、xlFillCopy 和 xlFillLinearTrend。有关这些的完整列表，请参阅 Microsoft 的 reference page。 .