一、条件格式公式方案（无辅助列，通用高效） #

适用于Excel 365及以上版本，用LET函数简化计算逻辑，避免重复拆分字符串：

公式代码： #

=LET(
 parts, FILTERXML("<t><s>"&SUBSTITUTE(A1,".","</s><s>")&"</s></t>","//s"),
 valid, --(ISTEXT(LEFT(parts,1)) * ISNUMBER(VALUE(MID(parts,2,99)))),
 has_target, --(EXACT(UPPER(LEFT(parts,1)), {"R","V","H"})),
 AND(SUM(valid)>=2, SUM(valid*has_target)>=1)
)

工作原理： #

1. parts：按.拆分单元格内容，提取所有子片段
2. valid：标记片段是否为有效子产品（首字符是字母，剩余部分为数字）
3. has_target：标记有效子产品是否以R/V/H开头（不区分大小写）
4. 最终判断：有效子产品数量≥2，且至少一个符合开头要求

设置步骤： #

1. 选中目标列（如A列）
2. 点击「开始」→「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
3. 粘贴上述公式（将A1替换为选中区域的第一个单元格）
4. 设置填充颜色为红色，确认应用

二、VBA方案（大数据量首选，性能更优） #

通过自定义函数或宏解决复杂公式运行缓慢的问题，规则灵活易维护：

自定义函数代码： #

按Alt+F11打开VBA编辑器，插入模块后粘贴以下代码：

Function ShouldHighlight(cell As Range) As Boolean
    Dim parts() As String
    Dim validCount As Integer
    Dim hasTarget As Boolean
    Dim part As String
    Dim firstChar As String
    
    parts = Split(cell.Value, ".")
    validCount = 0
    hasTarget = False
    
    For Each part In parts
        If Len(part) >= 2 Then
            firstChar = UCase(Left(part, 1))
            ' 验证有效子产品：首字符为字母，其余部分为数字
            If firstChar Like "[A-Z]" And IsNumeric(Mid(part, 2)) Then
                validCount = validCount + 1
                ' 检查是否为目标开头字母
                If firstChar = "R" Or firstChar = "V" Or firstChar = "H" Then
                    hasTarget = True
                End If
            End If
        End If
    Next part
    
    ShouldHighlight = (validCount >= 2) And hasTarget
End Function

使用自定义函数： #

1. 返回Excel界面，选中目标列，新建条件格式规则
2. 输入公式：=ShouldHighlight(A1)
3. 设置红色填充格式即可

批量标红宏（一次性处理所有数据）： #

如果需要批量更新格式，运行以下宏：

Sub HighlightProducts()
    Dim rng As Range
    Dim cell As Range
    
    ' 假设数据从A2开始，可根据实际范围调整
    Set rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    For Each cell In rng
        cell.Interior.ColorIndex = xlNone ' 清除原有格式
        If ShouldHighlight(cell) Then
            cell.Interior.Color = vbRed ' 设置红色填充
        End If
    Next cell
End Sub

方案优势 #

• 无需辅助列，避免数据冗余
• 通用规则判断，新增子产品格式（如s800）无需手动更新规则
• VBA方案在大数据量场景下，运行速度远快于复杂工作表公式

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