向下填充公式可以用鼠标但代码中你怎么用鼠标？

点击上方“Excel和VBA”，选择“置顶公众号”

致力于原创分享Excel的相关知识，源码，源文件打包提供

一起学习，一起进步~~

在平时的操作中，我们会经常使用Excel的公式，通常都是在第一个单元格写入公式之后，顺势下拉，填充其他的单元格的，速度还是很快的，但是如果碰巧我们正好利用VBA代码增加了某一行或者某一列，新增加的行列是肯定没有公式的，那么这个时候我们要如何给这些新增的单元格写入公式呢？

一个两个可以手动下拉，但是多个的情况下这样就比较的麻烦，而且如果我们正好是在代码中执行填充公式的操作，我们也需要考虑到这个公式下拉的问题，那么问题就是，在VBA代码中，我们如何用代码执行下拉操作呢？

场景说明

这是我们之前的场景，今天我们假设数据有了增加，A列我们新增了几列

可以看到，新增了几个数值之后，后面的单元格内容是完全为空的，并没有任何的公式，那么怎么办呢？

我们可以用常规的方式通过鼠标双击的方法，向下填充单元格公式

但是很明显，这样的操作存在一些麻烦，我们后面的B,C,D三列都有公式的，如果要填充的公式的话，那么就需要重复上面的操作，至少三次，如果有更多公式列的话，那么要双击鼠标填充的次数就更多了，这样一来操作就会比较的麻烦了

说了那么多，难道VBA可以实现一次填充多列？！

单纯说，你可能不信，真的是这样，不管你要向下填充几列，其实在VBA中，都是一句代码的事情

真的是一句代码

Sub tc()Range("b2:d10").FillDown '向下填充公式End Sub

一起来看看实际的效果如何

从时间和效率上，我们看是不是VBA的效果更佳的好？

既然我说一句代码就可以实现了

那么这一句代码是什么呢

Range("b2:d10").FillDown '向下填充公式

简单点可以理解为，FillDown就是向下填充单元格的意思

注意：

这个FillDown使用有一个大前提，就是这个单元格区域的第一行一定要有公式的，如果第一行没有公式的话，是不会是想填充的效果的

这里我简单的更改下代码，大家看看

Sub tc()Range("b7:d10").FillDown '向下填充公式End Sub

假设我们代码中写入的是这个区域，我们会发现执行了代码之后，是不会有任何的效果的，因为B7,C7,D7这三个起始行是没有任何公式的

假设我们稍微更换下，将区域往上增加一行，从B6,C6,D6这一行开始

Sub tc()Range("b6:d10").FillDown '向下填充公式End Sub

再来看看效果