[已解决]只显示红色字体的单元格

zhgghw

工作表内有一段代码，只显示红色字体的单元格(见附件），但问题是只有在A列才能正常运行，放到B列就行了，不知道是什么原因，请论坛里的老师指教。谢谢！ 附件.rar (10.1 KB, 下载次数: 2)

2015-1-16 13:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zyouong

2015-1-16 13:32

附件.rar (10.42 KB, 下载次数: 11)

2015-1-16 13:32 上传

点击文件名下载附件

跳转到最佳答案楼层

lisachen

1. Private Sub CommandButton1_Click()
   
2. Dim a, n As Integer
   
3. n = Range("B65536").End(xlUp).Row
   
4. For a = n To 1 Step -1
   
5. If Cells(a, 2).Font.ColorIndex <> 3 Then Rows(a).Hidden = True
   
6. Next a
   
7. End Sub

复制代码

zyouong

附件.rar (10.42 KB, 下载次数: 11)

2015-1-16 13:32 上传

点击文件名下载附件

zhgghw

zyouong 发表于 2015-1-16 13:32

谢谢！学习了。

zhgghw

lisachen 发表于 2015-1-16 13:31

谢谢！您的答案也很好哦，只是楼下的来得更简便，简单易行。