应用场景

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

知识要点

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