写一段vba代码将sheet中所有单元格中的CCU字符的字体颜色设置为红色

当然可以，以下是一段简单的VBA代码，用于将Excel工作表（Sheet1假设）中所有包含"CCU"字符的单元格字体颜色设置为红色：

Sub ChangeColorIfContainsCCU()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 更改为您需要的 sheet 名称
    
    Dim rng As Range
    For Each rng In ws.UsedRange ' 遍历工作表的所有单元格
        If InStr(1, rng.Value, "CCU", vbTextCompare) > 0 Then ' 检查单元格是否包含 "CCU"
            rng.Font.Color = RGB(255, 0, 0) ' 如果包含，将其设为红色
        End If
    Next rng
End Sub

在这段代码中，我们首先设置了工作表变量`ws`，然后遍历该工作表中每一个单元格`rng`，如果单元格值中存在"CCU"，就将其字体颜色设置为红色。