Excel VBA 8.41完美复制Excel双击鼠标自动向下填充公式的功能

用微信扫码二维码

分享至好友和朋友圈

在Excel的使用过程中，公式有很大的帮助，因为可以直接借用Excel自带的函数，也就是现在常说的轮子，有了现成的轮子，我们就可以节省自己造轮子的时间，效率提升了不少。

我们知道在Excel中，我们使用公式更多的时候都是在一个单元格中写入了公式之后，然后直接下拉填充到其他的单元格中的，不过有时候我们正好利用VBA代码增加了某一行或者某一列，新增加的行列是肯定没有公式的，那么这个时候我们要如何给这些新增的单元格写入公式呢？

难道要通过遍历循环的方式一个一个写入？

不，Excel既然能够通过鼠标来实现公式的向下填充，那么VBA自然也可以实现，而且非常的简单

一起来看看

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

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

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

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

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

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

真的是一句代码

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

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

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

在用鼠标填充的过程中，因为一定要选中单元格之后，移动到右下角，待鼠标形状变成十字光标的时候，才可以点击下拉，在这个过程中也会导致选错单元格，要重新选择的，

而VBA的效果就非常的好，写好了代码，固定了区间之后，直接填充，非常快捷，效率提升了很多

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

那么这一句代码是什么呢

Range（“b2:d10”）.FillDown '向下填充公式

就是非常简单的一句代码，代码的核心就是FillDown这个方法

简单点可以理解为，

FillDown就是向下填充单元格的意思

既然要向下填充，那肯定要有一个单元格区间啦，前面的range就是单元格区间

：注意

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

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

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

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

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

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

再来看看效果

这样才会有正确的结果，所以大家在使用的过程中，一定要留意起始区域的选择

特别声明：以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布，本平台仅提供信息存储服务。

Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.