Hsieh

¦^´_ 3# tsuan

1. Sub Ex()
   
2. k = Rows(2).Find("¤W´Á¼Æ¶q").Column - 1
   
3. Range([E2], Cells(2, k)).EntireColumn.Interior.ColorIndex = 0
   
4. For Each a In Range([E2], Cells(2, k)).EntireColumn.SpecialCells(xlCellTypeConstants, 1)
   
5. r = a.Row
   
6. If a > Application.Min(Range(Cells(r, 5), Cells(r, k))) * 1.3 Then a.Interior.ColorIndex = 3
   
7. Next
   
8. End Sub

½Æ»s¥N½X