VBA EXCEL如何筛选出红色字体的行

amao1212

工作表.zip (6.5 KB, 下载次数: 16)

2015-2-28 17:21 上传

点击文件名下载附件

请高手设置个按钮筛选出已经是红色字体的行，能否做到

蓝桥玄霜

1. Sub Macro2()
   
2. For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
   
3.     For i = 1 To Len(cel.Value)
   
4.         If cel.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then
   
5.             tt = tt & cel.Row & ","
   
6.             Exit For
   
7.         End If
   
8.     Next
   
9. Next
   
10. tt = Left(tt, Len(tt) - 1)
    
11. MsgBox tt & "行有红色字符串。"
    
12. End Sub
    

复制代码

amao1212

蓝桥玄霜 发表于 2015-2-28 17:44

楼上回答很快，但不够给力。不是我想的那种筛选，你那种只是提示筛选结果， 我想要的结果如图。

jpj123

amao1212 发表于 2015-2-28 18:40
楼上回答很快，但不够给力。不是我想的那种筛选，你那种只是提示筛选结果，我想要的结果如图。

1. Sub Macro1()
   
2. Columns(1).Font.ColorIndex = 0
   
3. For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
   
4.   If InStr(cel, "yy") > 0 Then
   
5.   x = InStr(cel, "yy")
   
6. cel.Characters(Start:=x, Length:=2).Font.ColorIndex = 3
   
7. Else
   
8. cel.EntireRow.Hidden = True
   
9. End If
   
10. Next
    
11. End Sub
    
12. Sub Macro2()
    
13. For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
    
14. cel.EntireRow.Hidden = False
    
15. Next
    
16. End Sub
    

复制代码

jpj123

请测试附件   

amao1212

结合两位老师的解答，问题解决了。实在感谢楼上两位老师，祝你们新年愉快！