元格有红色字体，能不用IF或类似的方法判断。

毛伢仔

单元格有红色字体，能不用IF或类似的方法判断。

liujing_hotwind

公式不能判断格式，可以使用VBA

一剑惊心

当你在C列手工进行描红时，你都可以在Q列手工写结果了？

nie414006

毛伢仔

一剑惊心 发表于 2023-5-5 16:37
当你在C列手工进行描红时，你都可以在Q列手工写结果了？

C列的描红是别的部门的工作。
我的工作是拿到表格，跟据C列描红的内容（更改的内容）进行下一步的工作。

毛伢仔

nie414006 发表于 2023-5-5 17:17

非常感谢，能帮忙把代贴上来吗，之后如有有需要的小伙伴也可以参考。

nie414006

毛伢仔 发表于 2023-5-5 18:05
非常感谢，能帮忙把代贴上来吗，之后如有有需要的小伙伴也可以参考。

Sub checkRedFont()
Dim cell As Range
Dim i As Long
Dim redFound As Boolean

For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    For i = 1 To Len(cell.Value)
        If cell.Characters(i, 1).Font.ColorIndex = 3 Then
            cell.Offset(0, 1).Value = "工序更新"
            redFound = True
            Exit For
        End If
    Next i
    If Not redFound Then
        cell.Offset(0, 1).ClearContents
    End If
    redFound = False
Next cell
End Sub