当前位置：首页 → 问答吧 → 请教如何在两个不同类项目之间快速插入空行？

请教如何在两个不同类项目之间快速插入空行？

时间：2011-08-10

来源：互联网

如题，谢谢大侠指点！

附件

Book1.rar(1.9 KB)

2011-8-10 18:34, 下载次数: 12

作者: ym123 发布时间: 2011-08-10

Sub dd()
For i = 4 To Range("b" & Cells.Rows.Count).End(3).Row
If Cells(i - 1, 2) <> Cells(i, 2) Then Rows(i).Insert Shift:=xlDown: i = i + 1
Next
End Sub

作者: 白云2011 发布时间: 2011-08-10

回复一楼，这个可以先使用条件格式将每个不同放映厅的交界处的地方标记出来，然后查找刚才标记的格式，然后选择插入行就好了

作者: fuyou1355 发布时间: 2011-08-10

引用:

原帖由白云2011 于 2011-8-10 18:39 发表
Sub dd()
For i = 4 To Range("b" & Cells.Rows.Count).End(3).Row
If Cells(i - 1, 2) Cells(i, 2) Then Rows(i).Insert Shift:=xlDown: i = i + 1
Next
End Sub

谢谢白云大侠！但后面两个分类之间没插入成功（六和七之间），劳烦大侠再帮看看，再次感谢！！

作者: ym123 发布时间: 2011-08-10

Sub dd()
For i = 4 To Range("b" & Cells.Rows.Count).End(3).Row + 999
If Cells(i - 1, 2) <> Cells(i, 2) Then Rows(i).Insert Shift:=xlDown: i = i + 1
Next
End Sub

作者: 白云2011 发布时间: 2011-08-10

引用:

原帖由白云2011 于 2011-8-10 19:28 发表
Sub dd()
For i = 4 To Range("b" & Cells.Rows.Count).End(3).Row + 999
If Cells(i - 1, 2) Cells(i, 2) Then Rows(i).Insert Shift:=xlDown: i = i + 1
Next
End Sub

这么简短的代码就搞定了