Excel间隔列数据，批量填充内容

说明

批量填充某一列的数据，且这一列有很多行有内容，需要将每一行的空白格填入上方离空白格最近的内容。

需求场景：

如下图，需求数据为A列，要求实现B列效果

 步骤：

1.打开Excel文件，按下Alt + F11打开VBA编辑器

2.在VBA编辑器中，点击菜单栏的插入，选择模块

3.在新建的模块中，插入以下VBA代码：

Sub 填充单元格()
    Dim lastRow As Long
    Dim fillValue As Variant
    Dim i As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取第一列最后一行的行数
    fillValue = Cells(1, 1).Value ' 获取