VBA 学习

Sub jiance()
'
' jiance Macro
'
    
    Dim res As Boolean
    Dim i As Integer
    
    
    For Each cell In Worksheets("Sheet2").Range("e3:e139")
    
        For Each basecell In Worksheets("sheet1").Range("t4:t77")
            
            result = InStr(basecell, cell) > 0
            
            If result Then
                
                cell.Interior.ColorIndex = 3
            
            End If
        
        Next basecell
    
    Next cell
    
    
    
    For Each cell In Worksheets("Sheet2").Range("d3:e139")
    
        For Each basecell In Worksheets("sheet1").Range("ai4:ai77")
            
            result = InStr(basecell, cell) > 0
            
            If result Then
                
                cell.Interior.ColorIndex = 3
            
            End If
        
        Next basecell
    
    Next cell
    
    
    MsgBox "处理完毕"
End Sub