Excel VBA，在列列表中包含"IS“和"S”的第一个单元格中的颜色

Sub FindFirstCellWithColor()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要搜索的范围
    Set rng = Range("A1:A100")
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格的值是否包含"IS"和"S"
        If InStr(1, cell.Value, "IS") > 0 And InStr(1, cell.Value, "S") > 0 Then
            ' 如果满足条件，设置单元格的颜色为红色
            cell.Interior.Color = RGB(255, 0, 0)
            
            ' 退出循环，只处理第一个满足条件的单元格
            Exit For
        End If
    Next cell
End Sub