excel vba 选择已经标红的单元格

Question

我已经用vba标红了符合条件的单元格所在的一整行，但是怎么再选中这些标红的行，然后删除呢？求vb码，谢谢！

Answer 1

Sub abc()
Dim rng As Range, rng1 As Range
Set rng = Range("a1:g100") '有红色单元格的区域
For Each rng1 In rng
If rng1.Interior.Color = vbRed Then
rng1.EntireRow.Delete
End If
Next
End Sub

Answer 2

给你个例子你参考一下俺你自己的要求再修改一下
例1 背景颜色是红色就删除整行
For i = 1 To 100
With Range("A" & i)
If .Interior.ColorIndex = 3 Then .EntireRow.Delete
End With
Next

例2 字体颜色是红色就删除整行
For i = 1 To 100
With Range("A" & i)
If .Font.ColorIndex = 3 Then .EntireRow.Delete
End With
Next

Answer 3

你标红的代码中填充颜色的改为=xlnone 即可，其他代码和条件不变 。
你可以把你的代码复制上来看下吗？