[已解决]如何用宏保留特定行数据，删除其它行数据，谢谢！

bipl607

请教高手：如何用宏保留1，6；8，13；15，20；22，27；29，34；36，41；。。。行，
删除其它行的数据，谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-19 22:56

1. Sub 删除行()
   
2.     Application.ScreenUpdating = False
   
3.     Dim i As Long
   
4.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   
5.         If Cells(i, 1).Interior.ColorIndex <> 6 Then
   
6.             Rows(i).Delete
   
7.         End If
   
8.     Next
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你直接用颜色排序后，剩下的怎么做应该很明了了。

hwc2ycy

1. Sub 删除行()
   
2.     Application.ScreenUpdating = False
   
3.     Dim i As Long
   
4.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   
5.         If Cells(i, 1).Interior.ColorIndex <> 6 Then
   
6.             Rows(i).Delete
   
7.         End If
   
8.     Next
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

hwc2ycy

根据背景色来做判断进行删除的。

bipl607

谢谢hwc2ycy，谢谢！