插入空行_Excel中关键字匹配后，如何批量插入空行？

大家好，先来看一个案例

案例：如下图所示，为了区分开不同组，要求组长上方插入一空行。

注：数据有1000多行，为了方便演示，雷哥只截取了部分数据。

看到这里，大家有思路了吗？

查找法

我的好朋友，金鹏说，这也太简单了。他是这么做的

step1：按下【Ctrl+F】后，输入“组长”，单击【查找全部】

step2：选中数据，直接插入。

如图所示，按【shift】单击最后一行数据，右击插入【整行】。

这样真的可以吗？

具体操作见下图，可以发现，组长如果挨在一起，就会出现无法分开的局面，且会出现插入多行的情况。

VBA法

为了快速处理，雷哥推荐使用VBA。

代码如下

Sub test()

Dim M As Integer, N As Integer

N = Application.WorksheetFunction.CountA([A:A])

For M = N To 1 Step -1

If Cells(M,1) = "组长" Then

Rows(M).Insert

End If

Next

MsgBox "你好" & Chr(10) & "【组长】上已经插入空行"

End Sub

解释：

• N为A列非空单元格的数量
• 如果发现A列中某单元格数据为“组长”，则直接插入空行
• 查找结束后，直接跳出"你好 【组长】上已经插入空行"的提示

具体效果见下图

方法3

使用函数法~

具体大家可以实践一下。

总结

VBA看起来很复杂，用起来真的非常爽~~~~~~

❤ 雷哥，畅销书作者/职场达人，多平台作者，著有《竞争力：玩转职场Excel，从此不加班》，悟空问答青云计划获得者。欢迎关注【雷哥office】，私信“模板”免费获取100+套PPT模板！