kimbal

回復 1# john2006168

1.         Dim ci, msg
   
2.     If [e2] = "" Then
   
3.         Exit Sub
   
4.     End If
   
5.    
   
6.     For i = 1 To Range("E1").End(xlDown).Row
   
7.         If Range("E1").Offset(i) <> Range("E1").Offset(i, 2) Then
   
8.             msg = "不相符 (miss)"
   
9.             ci = 3
   
10.         Else
    
11.             msg = ""
    
12.             ci = 0
    
13.         End If
    
14.         With Range("E1")
    
15.             .Offset(i, 1) = msg
    
16.             .Offset(i, 3) = msg
    
17.             Range(.Offset(i), .Offset(i, 3)).Interior.ColorIndex = ci
    
18.         End With
    
19.     Next

複製代碼