〔条件格式慢，请大神帮忙写代码，谢谢〕

84595292

版主好，大神好，打扰下，能否抽空帮忙，谢谢.（我用条件格式可以实现，但资料太大，反应好慢）

手机上不能上附件了，请大神看图写一代码，谢谢。

yayahzmeng

盲敲一段代码，你试一下

1. Sub tstt()
   
2. Application.ScreenUpdating = False
   
3. arr = ActiveSheet.[a1].CurrentRegion
   
4. With ActiveSheet
   
5. For i = 2 To UBound(arr)
   
6. Select Case arr(i, 3)
   
7. Case "赢"
   
8. .Range("A" & i & ":C" & i).Font.ColorIndex = 3
   
9. Case "亏"
   
10. .Range("A" & i & ":C" & i).Font.ColorIndex = 4
    
11. End Select
    
12. Next
    
13. End With
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码