[已解决]如何选中任意行

cb_clx

如何选中带颜色的行，并且删除（带颜色的行是任意的，用变量表示）

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-25 09:19

直接删除行的代码：

1. Sub bbb()
   
2. Dim i&, rng As Range
   
3. For i = 2 To [a65536].End(3).Row
   
4.   If Cells(i, 1).Interior.Color = vbYellow Then
   
5.     If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
   
6.   End If
   
7. Next i
   
8. rng.Delete
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

你是要先选中、然后你手工删除，还是直接删除黄色的行？

大灰狼1976

选中行的代码：

1. Sub aaa()
   
2. Dim i&, rng As Range
   
3. For i = 2 To [a65536].End(3).Row
   
4.   If Cells(i, 1).Interior.Color = vbYellow Then
   
5.     If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
   
6.   End If
   
7. Next i
   
8. rng.Select
   
9. End Sub

复制代码

大灰狼1976

直接删除行的代码：

1. Sub bbb()
   
2. Dim i&, rng As Range
   
3. For i = 2 To [a65536].End(3).Row
   
4.   If Cells(i, 1).Interior.Color = vbYellow Then
   
5.     If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
   
6.   End If
   
7. Next i
   
8. rng.Delete
   
9. End Sub

复制代码

上清宫主

先按颜色排序，再删除之