AutoFill 方法

       

对指定区域中的单元格进行自动填充。Variant 类型。

expression.AutoFill(Destination, Type)

expression   必需。该表达式返回“应用于”列表中的对象之一。

Destination   Range 对象类型,必需。要填充的单元格。目标区域必须包括源区域。

Type  XlAutoFillType 类型,必需。指定填充类型。

示例

本示例以工作表 Sheet1 上的单元格区域 A1:A2 为基础,对单元格区域 A1:A20 进行自动填充。运行本示例之前,请在单元格 A1 中键入 1,在单元格 A2 中键入 2。

Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange