­ã´£³¡ªL

For z = 1 To 7
¡@¡@Set R(1) = .[J6].Cells(RW(y - 1) - x + 1, z): U = 0
¡@¡@For i = 1 To 3
¡@¡@¡@¡@Set R(2) = Nothing
¡@¡@¡@¡@If i <> y Then Set R(2) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
¡@¡@¡@¡@If Not R(2) Is Nothing Then If R(2).Column = R(1).Column Then U = U + 1
¡@¡@Next i
¡@¡@If Val(U) = 2 Then R(1).Interior.ColorIndex = Array(4, 6, 8)(y - 1)
Next z

¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
©Î:¡G
For z = 1 To 7
¡@¡@Set R(1) = .[J6].Cells(RW(y - 1) - x + 1, z): U = 0
¡@¡@For i = 1 To 3
¡@¡@¡@¡@If i <> y Then If R(1) = .[J6].Cells(RW(i - 1) - x + 1, z) Then U = U + 1
¡@¡@Next i
¡@¡@If Val(U) = 2 Then R(1).Interior.ColorIndex = Array(4, 6, 8)(y - 1)
Next z