VBA填充空单元格

• VBA • 7 条评论 • •7,097 次查阅

填充

通常很多人在输入数据时，在同一列中相同的数据都会选择不输（如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

      纠结什么?