Excel编辑过程中会遇到一些有规律的数据输入格式，比如等差数列，相同的数值，顺序数列等等。
遇到这类型情况，并不需要一一输入，其中有一些快捷方法可以实现。
下面就利用代码来实现此类型数据输入的方法。
上图中分别以数据的顺序格式，重复格式和表格格式进行自动填充的效果。
首先，要认识一个方法：AutoFill
语法：Range.AutoFill(Destination,type)
参数说明：
XlAutoFillType枚举
使用方法
Private Sub CommandButton1_Click()
Dim souRange As Range, FillRange As Range
Set souRange = Range("B4:B5")
Set FillRange = Range("B4:B16")
souRange.AutoFill Destination:=FillRange, Type:=xlLinearTrend
Set souRange = Nothing
Set FillRange = Nothing
End Sub
souRange.AutoFill Destination:=FillRange, Type:=xlLinearTrend
使用自动填充功能有一个默认区域，也就是源格式区域，这里的区域为：Range("B4:B5")，也就是B4和B5两个单元格，这两个单元格内要有数据。
然后，才能进行其它目标区域的自动填充。
填充格式根据Type的值来进行区分，也就是XlAutoFillType枚举值，根据不同值其填充效果也不一样，具体可以参考XlAutoFillType枚举自己设置。
自动填充是一个很有用的功能，熟练应用后会有不俗的效果。
欢迎关注、收藏
---END---