1、现在，我们以图片中的数据为例，大家可以看到图片中第1、2两列中存在空白行，这一部分的数据应当与空白处最上面的非空单元格数据一致，如图所示；
2、接下来，我们使用VBA进行空白行的填充，首先在工作表名称上点击右键，在弹出的菜单中选择“查看代码”，如图所示；
3、然后，会出现代码编辑窗口，即VBA编辑窗口，如图所示；
4、我们在窗口中，新建一个函数，名称随意起名即可，并输入函数过程；Sub 填充数据()For i = 2 To 23 If Cells(i, 1).Value = "&鳎溻趄酃quot; Then Cells(i, 1).Value = Cells(i - 1, 1).Value If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Cells(i - 1, 2).ValueNext iMsgBox "填充完成！"End Sub函数cells(x,y)中的x=行数，y=列数，可以根据实际情况进行调整，如图所示；
5、然后，点击图中箭头指向的绿色按钮，运行VBA函数，如图所示；
6、运行结束后，数据会自动填充完成，我们的工作也就完成了，如图所示；
