修法布施得聪明智慧，多分享让生活更美好。工作中有时需要在Excel列数据中根据规定数据之间插入规定空行，数据量大时一行一行查找并在规定处插入多行，工作量很大，为了省时省力，下面通过一实例分享自动在规定单元格之间自动插入行。工具/原料moreMicrosoft Office Excel 2007Excel VBA实例问题1/1分步阅读

现在有一张工作表， 假设一列有一些单元格内容为“项目”，底下为“项目”内容， 现在每个“项目”之间行数不等， 让表格自动填充，两个“项目”之间行数不够4行的自动补足4行，请问如何做到？

处理方法/步骤1/7

首先打开上例文件，如下图。

2/7

然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

3/7

然后插入了一个模块1，在代码框中复制如下代码：

Sub 按规定自动插入行()

2020-3-4 21:08:53

Dim c As Long, i As Long, r As Long, r1 As Long, m(), j As Long, n As Long, i1 As Long

c = 1 数据在A列

r1 = 4 数据行数

r = Cells(Rows.Count, c).End(xlUp).Row

ReDim m(r)

j = 0

For i = 1 To r

If Cells(i, c).Value = 项目 Then

j = j + 1

m(j) = Cells(i, c).Row

End If

Next i

For i = j To 2 Step -1

n = m(i) - m(i - 1) - 1

If n r1 Then

For i1 = 1 To r1 - n

Rows(m(i)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Next i1

End If

Next i

End Sub

4/7

以上操作动态过程如下：

5/7

回到工作表窗口，运行【按规定自动插入行】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名），运行过程如下图。

6/7

如果是多空行需要删除用下面代码：

Sub 按规定自动插入删除行()

2020-3-4 21:30:21

Dim c As Long, i As Long, r As Long, r1 As Long, m(), j As Long, n As Long, i1 As Long

c = 1 数据在A列

r1 = 4 数据行数

r = Cells(Rows.Count, c).End(xlUp).Row

ReDim m(r)

j = 0

For i = 1 To r

If Cells(i, c).Value = 项目 Then

j = j + 1

m(j) = Cells(i, c).Row

End If

Next i

For i = j To 2 Step -1

n = m(i) - m(i - 1) - 1

If n r1 Then

For i1 = 1 To r1 - n

Rows(m(i)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Next i1

ElseIf n r1 Then

For i1 = m(i) - 1 To m(i - 1) + r1 + 1 Step -1

If Cells(i1, c).Value = Then

Rows(i1).Delete Shift:=xlUp

End If

Next i1

End If

Next i

End Sub

7/7

如果觉得这篇经验帮到了您，请点击下方的 “投票点赞 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！

VBA自动删除行自动插入行EXCEL