嘿，我来帮你把这个判断RAG（红/黄/绿）状态的需求改成更简洁好用的Excel自定义函数！你的需求逻辑很清晰：取两个单元格的最坏情况结果——Red优先级最高，其次是Amber，最后是Green，完全对应你原来的IF公式逻辑。

先确认你原公式的逻辑（完全正确） #

=IF(OR(AZ8="Red",AY8="Red"),"Red",IF(OR(AZ8="Amber",AY8="Amber"),"Amber","Green"))

优化你的初步UDF代码 #

你写的代码思路没问题，但有几个可以简化和规范的地方：

• 不需要额外的RAGStatus参数，直接给函数名赋值就能返回结果
• 明确使用.Value读取单元格内容，代码更清晰（虽然Excel有时会自动省略，但规范写法更稳妥）

优化后的最终代码：

Function CalculateOverallRAG(CellRef1 As Range, CellRef2 As Range) As String
    ' 优先级1：只要有一个单元格是Red，直接返回Red
    If CellRef1.Value = "Red" Or CellRef2.Value = "Red" Then
        CalculateOverallRAG = "Red"
    ' 优先级2：没有Red但有Amber，返回Amber
    ElseIf CellRef1.Value = "Amber" Or CellRef2.Value = "Amber" Then
        CalculateOverallRAG = "Amber"
    ' 最后情况：两个都是Green，返回Green
    Else
        CalculateOverallRAG = "Green"
    End If
End Function

使用方法 #

在Excel单元格中输入：

=CalculateOverallRAG(AY8, AZ8)

替换成你需要的两个单元格引用即可。

额外扩展：支持多个单元格的版本 #

如果以后你需要判断超过两个单元格的最坏情况，可以用这个更灵活的版本，它接受一个单元格范围作为参数：

Function CalculateOverallRAG(RangeToCheck As Range) As String
    Dim cell As Range
    
    ' 先遍历找Red（最高优先级）
    For Each cell In RangeToCheck
        If cell.Value = "Red" Then
            CalculateOverallRAG = "Red"
            Exit Function '找到就直接返回，提升效率
        End If
    Next cell
    
    ' 没找到Red，再遍历找Amber
    For Each cell In RangeToCheck
        If cell.Value = "Amber" Then
            CalculateOverallRAG = "Amber"
            Exit Function
        End If
    Next cell
    
    ' 既没有Red也没有Amber，返回Green
    CalculateOverallRAG = "Green"
End Function

使用时直接选中要判断的范围：

=CalculateOverallRAG(AY8:AZ8)

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