Excel VBA实现列A空白单元格填充上一个非空ID值的技术需求

嘿，我完全懂你遇到的麻烦——A列里的ID隔一段就有空白，而且空白数量还没个准数，想把这些空白都填上上面最近的那个ID对吧？作为VBA新手，真的不用头大，我给你准备了一段超直白的代码，跟着步骤走分分钟搞定！

直接能用的VBA代码 #

Sub FillBlankIDs()
    Dim lastRow As Long
    Dim currentValue As String
    Dim i As Long
    
    ' 获取A列最后一个有数据的行号，自动适配你的数据长度
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 把A1的ID存起来当初始填充值（要是A1是空的，记得先手动填第一个ID哦）
    currentValue = Range("A1").Value
    
    ' 从第2行开始逐个检查单元格
    For i = 2 To lastRow
        ' 碰到空白单元格就填上之前存的ID
        If Range("A" & i).Value = "" Then
            Range("A" & i).Value = currentValue
        Else
            ' 碰到新的ID就更新存储值，后面的空白用这个新ID填充
            currentValue = Range("A" & i).Value
        End If
    Next i
    
    ' 填充完成后弹个提示告诉你
    MsgBox "空白单元格填充搞定啦！", vbInformation
End Sub

代码简单解释（怕你好奇嘛😜） #

• lastRow：自动找到A列最后一行有内容的单元格，不用你手动数行数，不管数据多长都能用。
• currentValue：专门用来存最近的那个有效ID，碰到空白就把它填进去，碰到新ID就更新它。
• 循环部分：从第2行开始挨个扫，逻辑超简单——空的就填之前的ID，不是空的就换个新ID存着。

操作步骤（一步都不能少哦） #

1. 打开你的Excel文件，按下Alt + F11快速打开VBA编辑器。
2. 在左边的「工程资源管理器」里找到你的工作簿，右键点它，选【插入】→【模块】。
3. 把上面的代码复制粘贴到右边弹出来的代码窗口里。
4. 按下F5运行代码，或者点工具栏上那个绿色的小三角按钮。
5. 等弹出提示框，就大功告成啦！

小提醒 #

• 如果你的A1是空的，代码会把空值往下填，所以一定要确保A1是第一个有效的ID哦！
• 运行前最好备份一下文件，虽然这个代码很安全，但小心驶得万年船嘛～

内容的提问来源于stack exchange，提问作者Mehdi Flame