如何用vba实现excel单元格区域内容、公式的填充？

在excel工作表中，当在单元格区域中输入公式或者内容以后，我们往往会拖拉填充柄进行上下左右的内容或者公式的填充。

如果要在vba中模拟这个动作，可以使用Range对象的AutoFill方法。

Range对象的AutoFill方法有两个参数，分别是Destination和Type。

其中Destination参数为要填充的目标单元格区域，该区域必须包含源单元格区域。

比如A1单元格中有公式，需要填充到A2:A10单元格区域，那么Destination参数的值要写成A1:A10单元格区域。

Type属性为各种填充的规则。

如果Destination参数的区域与源单元格区域一模一样，也就是实际上没有填充，那么将会报错。

如下代码所示：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    '目标区域与源区域一致，报错
    oWK.Range("b21:b33").AutoFill oWK.Range("b21:b33")
End Sub