GBKEE

回復 1# john2006168

1. Sub Ex()
   
2.     Dim i
   
3.     For i = 2 To Range("E1").End(xlDown).Row
   
4.         With Range("E1")
   
5.             If .Cells(i, 1) = .Cells(i, 3) Then
   
6.                 .Cells(i, 1).Resize(, 4).Interior.ColorIndex = 0
   
7.             Else
   
8.                 .Cells(i, 2) = "不相符(miss)"
   
9.                 .Cells(i, 4) = "不相符(miss)"
   
10.                 .Cells(i, 1).Resize(, 4).Interior.ColorIndex = 3
    
11.         End If
    
12.         End With
    
13.     Next
    
14. End Sub

複製代碼