EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
Excel在规定单元格之间自动插入行
来源：互联网
2023-02-21 16:03:55 528
修法布施得聪明智慧，多分享让生活更美好。工作中有时需要在Excel列数据中根据规定数据之间插入规定空行，数据量大时一行一行查找并在规定处插入多行，工作量很大，为了省时省力，下面通过一实例分享自动在规定单元格之间自动插入行。
工具/原料
- Microsoft Office Excel 2007
- Excel VBA
实例问题
现在有一张工作表， 假设一列有一些单元格内容为“项目”，底下为“项目”内容， 现在每个“项目”之间行数不等， 让表格自动填充，两个“项目”之间行数不够4行的自动补足4行，请问如何做到？
处理方法/步骤
首先打开上例文件，如下图。
然后按下快捷键ALT F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
然后插入了一个模块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
以上操作动态过程如下：
回到工作表窗口，运行【按规定自动插入行】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名），运行过程如下图。
如果是多空行需要删除用下面代码：
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
如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：Excel如何快速将日期转换为星期几 下一篇：Excel将数值向下舍取到百位
