Sub 筛选颜色()
a = Selection.Interior.PatternColorIndex
b = Selection.Interior.Color
With Application.FindFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = a
.Color = b
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Find(What:="", SearchFormat:=True).Activate
End Sub
以上代码可以找到指定颜色的单元格。但是首先是要先选定一个你要筛选的颜色的单元格。
然后如果你有VBA基础的护啊,怎么去筛选全部或者两个的代码应该也会写的了,因为是很简单的代码了
!!!!
额,如果实在没有基础的话,加393787945@qq。com
我再详细的说一下吧
我看错意思了。内容删除了
可用VBA编程处理。