GBKEE

¦^´_ 1# tinching

1. Sub Ex()
   
2.     Dim E As Range, i As Integer
   
3.     [Q4:AD9].Font.ColorIndex =xlAutomatic
   
4.     For Each E In [CA13:CG18]
   
5.         If E.Column = 79 Then i = 17 Else i = i + 2
   
6.         If E = [z15] Then Cells(E.Row - 9, i).Resize(, 2).Font.ColorIndex = 3
   
7.     Next
   
8. End Sub

½Æ»s¥N½X