网站设计设/网站快速收录付费入口

前景提要(文末提供源码下载)

昨天我们学习了批量插入多列的方法，那么今天我们就来学习下如何批量插入多行的方法，其实在之后，有很多的小伙伴都在争议，相对于鼠标操作，VBA来执行是否会更加的快，我在这里说下我自己的想法，如果是仅仅输入几行的话，鼠标操作确实是更加的方便，那么什么情况下使用VBA执行插入会更加的方便呢？我认为在下面这两个场景中VBA会方便一点

• 需要一次性插入的行数比较的多，这样就不用去数已经选择了多少行或者已经插入了多少行
• 在其他的VBA程序中，需要执行插入命令，比方说添加辅助列，或者插入空行填入运算结果的时候

上面是我自己在平时工作中一些场景的总结，不知道小伙伴们是否认同呢？

不管怎么样，我们还是继续来学习下今天的内容，昨天学习了多行的插入，今天来学习下多列的插入

场景说明

这个就是我们今天的简单的数据区，我们来实现下批量插入多行的效果，同样的，我们还是结合鼠标操作和VBA操作两种方法一切来看看效果，毕竟方法没有绝对，自己能够理解，并且熟练运用，才是最好的方法。

鼠标操作的方法

其实和批量插入多列一样，非常的简单，我感觉唯一的瑕疵就是插入行数多了不太方便

并且可能会受到前面行格式的影响，比方说下面动图中，新增加的行就变成了灰色。

代码区

Sub kongh()Dim rng As Range, TargetCol$, num$Set rng = Application.InputBox("请选择参照行