rng.Text Like "*CCU*"这个代码如何修改能匹配所有文本格式

`rng.Text Like "*CCU*"` 这行代码使用的是文本模式匹配，其中 `Like` 是Excel VBA中用于比较字符串的一种运算符，"*CCU*" 是一种通配符表达式。'*' 代表零个到任意个字符，所以这段代码会匹配任何包含 "CCU" 的文本内容，无论其前面或后面有多少其他字符。

如果你希望匹配所有文本格式（包括但不限于文本、数字、日期等），并不仅仅是纯文本形式的 "CCU"，可以考虑使用 `InStr` 函数而不是 `Like`。`InStr` 是查找函数，返回某个字符串在另一字符串中的起始位置，如果没找到则返回0。因此，你可以尝试这样修改：

If Not IsError(InStr(rng.Text, "CCU")) Then
    rng.Characters.Contains("CCU").Font.Color = RGB(255, 0, 0)
End If

这里，`Not IsError` 避免了当 `InStr` 未找到 "CCU" 时可能出现的 #Value! 错误。这将匹配任何形式的 "CCU" 子串，包括数字或日期字符串中的 "CCU"。

请注意，这种方法可能会影响性能，因为它会对每个单元格逐字搜索。如果数据量非常大，可以考虑优化策略，比如先筛选出包含 "CCU" 的单元格再进行颜色更改。