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   

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

分享到:

7 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. surmise

    好久没来哦~~踩下先

    1. Kael.Z

      你消失好一阵子了

  2. 阿星

    哈哈,好久没给你评论了,我的美国空间被我给甩了,换新空间了哦!呵呵,看望哦!

    1. Kael.Z

      换到哪里了?

  3. 英国公司注册

    一个鼠标滑过一个博客,一个手指点出一篇博文,一个键盘敲出一段文字,而忧伤却一直在心底从未出来过。

  4. tvdvdset

    不是吧 这个说起就纠结了哈

    1. Kael.Z

      纠结什么?