如何修改VBA代码仅在B列实现按上方值向下填充空单元格

原有代码问题 #

你原本代码里的CurrentRegion会自动选中和B列数据相邻的所有连续数据区域，相当于把关联的其他列也纳入了操作范围，才会生成多余数据。

修改后代码 #

直接精准限定操作范围为B列的实际已使用区间即可，完全不会波及其他列：

' 先获取B列最后一个非空单元格的行号，划定B列的有效操作范围
With Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    ' 仅给范围内的空单元格写入取上方单元格值的公式
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    ' 如果需要填充后直接保留静态值、不保留公式，取消下行注释即可
    ' .Value = .Value
End With

注意事项 #

• 请确保B列起始单元格（B1）为非空值，否则最顶部的空单元格没有可引用的上方值会触发运行错误。如果B列数据不是从第1行开始，把代码里范围起始的B1改成实际的起始单元格地址即可。
• 这段代码只会操作B列从第1行到最后一个非空行之间的所有单元格，不会扩展到相邻列，也不会处理最后一个非空行下方的空白区域，填充逻辑完全匹配需求：空单元格自动继承上方最近的非空值，遇到新的非空值后自动以新值为起点继续向下填充。

内容的提问来源于stack exchange，提问作者Diana Lazo