Excel VBA：实现自动下拉填充公式至最后一行

最新推荐文章于 2025-04-28 16:24:29 发布

Avasla

最新推荐文章于 2025-04-28 16:24:29 发布

阅读量1.6w

点赞数 11

分类专栏： Excel VBA 文章标签： Excel

本文链接：https://blog.csdn.net/WHYbeHERE/article/details/125970593

版权

Excel VBA 专栏收录该内容

5 篇文章

订阅专栏

本文探讨如何利用VBA自动化技术，结合Xlookup公式在Excel中根据B列的项目内容判断G-H列的收支，并实现D列的智能填充。重点讲解了如何编写VBA子程序来控制自动填充范围，直到C列的最后一个非空行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

问题场景：

如下所示，需要根据B列“项目”内容，查找G-H列中，各个项目是属于支出还是收入，再匹配填充进D列中。

PS：此处通过if()函数识别金额正负输出支出/收入。本文不考虑这种方法，主要是通过该案例探究VBA实现方法。
在这里插入图片描述

Xlookup + 自动填充公式

思路：首先，在D2单元格填充对应的Xlookup公式（vlookup也可，但更推荐升级版的Xlookup）；在通过VBA实现下拉自动填充公式的功能。
在这里插入图片描述
注意： VBA自动填充需要指定结束位置，所以需要对应找到“C”列（AB列也可）的最后一行，使用Cells(Rows.Count, "C").End(xlUp).Row

Sub autofill()
    Application.ScreenUpdating = False '防止宏运行时屏幕抖动
    Sheets("Sheet1").Select　'选择Sheet1
    Range("D2").Select '选择D2 首个含公式的单元格
     '对选择的单元格运行自动填充功能,范围是从D2到D列的最后一行,(这里参考的是C列的最后一行位置）
    Selection.autofill Destination:=Sheets("Sheet1").Range("D2:D" & Sheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row)
End Sub