有条件格式怎么批量删除带颜色的单元格？

Question

请教大神们，想要批量删除标红的单元格，但是现在工作表中带有条件格式查找替换的方法没办法使用，有什么解决办法或者其他的办法么

Answer 1

Excel怎样批量自动删除行（空格）

一、数据区域删除行空格

If myr.Cells(i).Value = "" Then

改为

If myr.Cells(i).Font.Color = -16776961  Then

Answer 2

找个空白单元格，用格式刷去刷。追问

可能我没说明白，这些标红的单元格就是条件格式标出来的
或者怎么样能直接删除高于某个单元格的数值跳过标红的环节。
比如A1:G1的某个数值高于H1将A1:G1的这个数值删除。需要有可复制性，因为有很多行每行的H列数值都是不同的。 麻烦大佬了

追答

你直接删除条件格式，不行吗？还是没明白你到底要做什么。

追问

A1:G1的数值高于H1的自用删除 同理A2:G2高于H2的自动删除以此类推。最直接的就是这个需求。

追答

VBA

Answer 3

可以用代码的。红底色吗？追问

对红色底，是用条件格式填充的红色
其实我的想的是A1:G1的数值高于H1的自用删除 同理A2:G2高于H2的自动删除以此类推。能解决这个就行，标红的这个问题可以选择性忽略。麻烦您了

追答

Sub 删去大于平均的H列值()
Dim Arr, i&, j&, H#
Arr = [a1].CurrentRegion
For i = 1 To UBound(Arr)
H = Arr(i, 8)
For j = 1 To 7
If Arr(i, j) > H Then Arr(i, j) = Empty
Next j
Next i
[a1].Resize(UBound(Arr), 7) = Arr
End Sub

本回答被提问者采纳