本经验介绍excel中如何用VBA快速填充空白行，大家在使用excel的时候，经常会遇到某列的值中，有某一些连续行是相同的，所以省略输入，导致出现很多空白行，由于数据统计需要进行空白行的填充，普通方式速度会很慢，现在介绍一种使用VBA快速填充的方法。

工具/原料

  • 电脑
  • Excel软件

方法/步骤

  1. 1

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

  2. 2

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

  3. 3

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

  4. 4

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

    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. 5

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

  6. 6

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

    END

注意事项

  • 示例文件存放到百度网盘链接: https://pan.baidu.com/s/1oalx9wrMWvZVmhljCO_txw 密码: 8xva
  • Excel的使用问题，可以关注我或者私信我一起交流学习；
  • 如果本经验帮助到了你，请点赞和收藏，欢迎关注”京粉学院“。
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。