VBA填充空单元格

通常很多人在输入数据时,在同一列中相同的数据都会选择不输(如A1输入X,一直空到A5,则A2~A4都是表示X),空白表示相同。偷懒的想法啊。 但为了输入方便偷懒了,能不能交给代码补全呢? 可以的! 分享代码吧:   Sub 填充单元格()    On Error Resume Next    Intersect([a:a], ActiveSheet.UsedRange).SpecialCells(