VBA填充空单元格

填充

通常很多人在输入数据时,在同一列中相同的数据都会选择不输(如A1输入X,一直空到A5,则A2~A4都是表示X),空白表示相同。偷懒的想法啊。

但为了输入方便偷懒了,能不能交给代码补全呢?

可以的!

分享代码吧:

 
  1. Sub 填充单元格()   
  2. On Error Resume Next   
  3. Intersect([a:a], ActiveSheet.UsedRange).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"  
  4. End Sub   

赶紧试试吧~效果运行后自动体现~

分享到: