如何在Excel中查找范围内相等最大值并标记并列获胜者

公式法（无需VBA） #

直接在需要标记的单元格（比如分数列右侧的单元格）输入以下公式，下拉填充即可：

=IF(G8=MAX($G$8:$G$11),"Winner","")

• 逻辑：通过MAX($G$8:$G$11)获取区域内最高分，判断当前单元格分数是否等于最高分，是则显示"Winner"，否则为空。
• 若要明确标注并列情况，可使用进阶公式：

=IF(G8=MAX($G$8:$G$11),IF(COUNTIF($G$8:$G$11,MAX($G$8:$G$11))>1,"Winner (并列)","Winner"),"")

VBA宏方法（适合批量/重复操作） #

如果需要自动化处理，可用以下VBA代码：

Sub MarkWinners()
    Dim scoreRange As Range
    Dim maxScore As Double
    Dim cell As Range
    
    ' 替换为你的分数所在区域（工作表+单元格范围）
    Set scoreRange = ThisWorkbook.Sheets("Sheet1").Range("G8:G11")
    maxScore = Application.Max(scoreRange)
    
    ' 遍历分数单元格，在右侧列标记Winner
    For Each cell In scoreRange
        If cell.Value = maxScore Then
            cell.Offset(0, 1).Value = "Winner" ' Offset(0,1)代表右侧一列，可按需修改位置
        End If
    Next cell
End Sub

• 使用步骤：按Alt+F11打开VBA编辑器，插入模块，粘贴代码，修改scoreRange为实际范围，运行宏即可。

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