Hsieh

¦^´_ 3# maiko

1. Sub Ex()
   
2. Dim Rng As Range, A As Range
   
3. Set Rng = Range([B1], [B1].End(xlToRight))
   
4. x = Application.WorksheetFunction.Lcm(Rng)
   
5. y = Rng.Count
   
6. For Each A In Range(Rng(1).Offset(1).Resize(, y), Rng(1).Offset(1).Resize(, y).End(xlDown))
   
7.    If A Mod x = 0 And Application.CountIf(Range(Rng(1).Offset(1).Resize(, y), Rng(1).Offset(1).Resize(, y).End(xlDown)), A) = y Then
   
8.       A.Interior.ColorIndex = 3 + Int(A / x) Mod 54
   
9.    Else
   
10.       A.Interior.ColorIndex = xlNone
    
11.    End If
    
12. Next
    
13. End Sub

½Æ»s¥N½X