如何在Excel中按单元格内容设置字体颜色？扑克牌场景技术求助

一、修复VBA脚本（解决无限循环问题） #

你的VBA脚本出现无限循环，是因为FindNext会持续循环搜索，未判断是否回到初始单元格；同时无需设置Searchformat:=True，因为我们要查找的是内容而非格式。修改后的代码如下：

Sub SetCardFontColor()
    Dim c As Range
    Dim firstAddr As String
    Dim targetRange As Range
    
    Set targetRange = Worksheets(1).Range("A1:A52")
    
    ' 处理红桃（h）
    Set c = targetRange.Find(What:="h", LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddr = c.Address
        Do
            c.Font.Color = vbRed ' 用vbRed更直观，等价于-16776961
            Set c = targetRange.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddr ' 判断是否回到初始地址，终止循环
    End If
    
    ' 处理方块（d）
    Set c = targetRange.Find(What:="d", LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddr = c.Address
        Do
            c.Font.Color = vbRed
            Set c = targetRange.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddr
    End If
End Sub

关键修改说明： #

• 移除了不必要的Application.FindFormat相关代码
• 增加c.Address <> firstAddr判断，避免搜索完所有匹配项后无限循环
• 使用vbRed替代数值，提升代码可读性
• 分别处理h和d的匹配，确保两种花色都被覆盖

二、修复条件格式公式（解决#VALUE!错误） #

原公式使用FIND函数时，若单元格不包含h或d，FIND会返回#VALUE!错误。推荐两种更可靠的写法：

方法1：用RIGHT函数判断最后一位（精准匹配花色位置） #

因为扑克牌格式为「牌值+花色」（如3h、Ah），花色固定在最后一位，直接判断最后一位字符：

=OR(RIGHT(A1,1)="h",RIGHT(A1,1)="d")

方法2：用ISNUMBER包裹FIND避免错误 #

若不确定花色位置，可通过ISNUMBER判断FIND是否找到匹配内容：

=OR(ISNUMBER(FIND("h",A1)),ISNUMBER(FIND("d",A1)))

条件格式设置步骤： #

1. 选中目标区域A1:A52
2. 点击「开始」→「条件格式」→「新建规则」
3. 选择「使用公式确定要设置格式的单元格」
4. 输入上述任意公式，设置字体颜色为红色即可

内容的提问来源于stack exchange，提问作者Simon