在Excel中,可以通过自动填充的方式来完成连续数据的输入。如果要向单元格区域输入序列数据,在VBA中,可以用AutoFill来完成同样的操作。
AutoFill对指定区域的单元格进行自动填充。格式:
Range对象.AutoFill(Destination, Type)
Destination为必填参数,指定需要填充的目标区域。注意,目标区域必须包含原区域。
Type为可选参数,类型为XlAutoFillType。具体可选值如下:
- xlFillDays:填充日期
- xlFillFormats:填充格式
- xlFillSeries:填充序列
- xlFillWeekdays:填充星期
- xlGrowthTrend:填充预测趋势
- xlFillCopy:填充复制
- xlFillDefault:默认值
- xlFillMonths:填充月份
- xlFillValues:填充数值
- xlFillYears:填充年份
- xlLinearTrend:填充预测趋势
以下案例,从A1单元格开始,输入100~150的连续数值。
'
' 填充序列值
'
Sub autofillSeries(
Dim rng As Range
' 指定区域
Set rng = Range("A1:A50")
' 清除内容
rng.ClearContents
' 开始填充区域
rng.Cells(1).value = 100
rng.Cells(1).AutoFill rng, xlFillSeries
End Sub