本经验介绍excel中如何用VBA快速填充空白行，大家在使用excel的时候，经常会遇到某列的值中，有某一些连续行是相同的，所以省略输入，导致出现很多空白行，由于数据统计需要进行空白行的填充，普通方式速度会很慢，现在介绍一种使用VBA快速填充的方法。工具/原料more电脑Excel软件方法/步骤1/6分步阅读

现在，我们以图片中的数据为例，大家可以看到图片中第1、2两列中存在空白行，这一部分的数据应当与空白处最上面的非空单元格数据一致，如图所示；

2/6

接下来，我们使用VBA进行空白行的填充，首先在工作表名称上点击右键，在弹出的菜单中选择“查看代码”，如图所示；

3/6

然后，会出现代码编辑窗口，即VBA编辑窗口，如图所示；

4/6

我们在窗口中，新建一个函数，名称随意起名即可，并输入函数过程；

Sub 填充数据()

For i = 2 To 23

If Cells(i, 1).Value = Then Cells(i, 1).Value = Cells(i - 1, 1).Value

If Cells(i, 2).Value = Then Cells(i, 2).Value = Cells(i - 1, 2).Value

Next i

MsgBox 填充完成！

End Sub

函数cells(x,y)中的x=行数，y=列数，可以根据实际情况进行调整，如图所示；

5/6

然后，点击图中箭头指向的绿色按钮，运行VBA函数，如图所示；

6/6

运行结束后，数据会自动填充完成，我们的工作也就完成了，如图所示；

注意事项

示例文件存放到百度网盘链接: https://pan.baidu.com/s/1oalx9wrMWvZVmhljCO_txw 密码: 8xva

Excel的使用问题，可以关注我或者私信我一起交流学习；

如果本经验帮助到了你，请点赞和收藏，欢迎关注”京粉学院“。

EXCELVBA数据填充自动填充京粉学院