Excel VBA 7.69批量插入多行，鼠标操作更快？但可以受到格式影响！vba操作麻烦，但更加灵活
批量插入多行，鼠标操作更快？但可以受到格式影响！vba操作麻烦，但更加灵活
点击上方“Excel和VBA”，选择“置顶公众号”
致力于原创分享Excel的相关知识，源码，源文件打包提供
一起学习，一起进步~~
昨天我们学习了批量插入多列的方法，那么今天我们就来学习下如何批量插入多行的方法，其实在之后，有很多的小伙伴都在争议，相对于鼠标操作，VBA来执行是否会更加的快，我在这里说下我自己的想法，如果是仅仅输入几行的话，鼠标操作确实是更加的方便，那么什么情况下使用VBA执行插入会更加的方便呢？我认为在下面这两个场景中VBA会方便一点
需要一次性插入的行数比较的多，这样就不用去数已经选择了多少行或者已经插入了多少行
在其他的VBA程序中，需要执行插入命令，比方说添加辅助列，或者插入空行填入运算结果的时候
上面是我自己在平时工作中一些场景的总结，不知道小伙伴们是否认同呢？
不管怎么样，我们还是继续来学习下今天的内容，昨天学习了多行的插入，今天来学习下多列的插入
场景说明
这个就是我们今天的简单的数据区，我们来是是实现下批量插入多行的效果，同样的，我们还是结合鼠标操作和VBA操作两种方法一切来看看效果，毕竟方法没有绝对，自己能够理解，并且熟练运用，才是最好的方法。
鼠标操作的方式
其实和批量插入多列一样，非常的简单，我感觉唯一的瑕疵就是插入行数多了不太方便
代码区
Sub kongh()Dim rng As Range, TargetCol$, num$Set rng = Application.InputBox("请选择参照行", "参照行的选择", , , , , , 8)TargetRow = rng.Rownum = Application.InputBox("请输入要插入的行数", "行数的确定", , , , , , 3)For i = 1 To num 'Sheet1.Rows(TargetRow).Insert Sheet1.Rows(TargetRow).Insert CopyOrigin:=xlFormatFromRightOrBelowNext iEnd Sub我们来看看效果
代码解析
其实方法和昨天我们学习的利用VBA插入多列的方法是一样的
唯一不同之处就是今天我们要插入的是多行，并且新增了一个功能，就是避免受到上面一行的格式的影响
Sheet1.Rows(TargetRow).Insert这句代码就成功的执行了在某一行插入一个空行的效果，不过我们今天增加了一点效果，要避免新增的空行被上面一行的格式所影响
所以这里我们需要增加一点内容
CopyOrigin:=xlFormatFromRightOrBelow这两段代码合起来就可以保证我们插入的空行不会受到上面一行的格式的影响了，上面的动图也成功的证明了我们的效果是可以实现的。
==========================