Excel-VBA快速填充空白单元格

应用场景

快速填充空白单元格(与上一个单元格一致)

知识要点

1：利用specialcells方法定位空单元格

2：在单元格输入R1C1形式的相对引用公式，公式为 “=R[-1]C”

Sub 填充空单元格与上一个单元格一致()

    On Error Resume Next

    '对A列与当前表已用区域的交集区域设置公式，公式使用R1C1形式，表示引用相对于公式所在单元格向上偏移一个单位的单元格

    Intersect([a:a], ActiveSheet.UsedRange).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = 'R[-1]C'

End Sub