如何自动核对并高亮表格中的彩票匹配号码？

一、条件格式公式法（无需编程） #

这是最省心的方案，靠Excel原生功能就能实现自动高亮：

• 假设参与者号码存在名为参与者的工作表中，每行对应1位参与者的6个号码（比如A2:F51覆盖50人）；开奖号码存在名为开奖记录的工作表中，所有已开出的号码列在A列（从A2开始）。
• 选中参与者的号码区域（A2:F51），打开「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」，输入公式：
  =COUNTIF(开奖记录!$A:$A, A2)>0
• 设置高亮格式（比如黄色填充），确定后只要号码出现在开奖记录里，就会自动高亮。每次新增开奖号码后，条件格式会自动刷新，完全不用手动操作。

如果需要快速统计每位参与者的匹配数量，可在参与者表的G列（辅助列）添加公式：
=SUMPRODUCT(--(COUNTIF(开奖记录!$A:$A, A2:F2)>0))
下拉填充后，G列会显示每人已匹配的号码数，方便快速找到集齐6个号码的中奖者。

二、简化版VBA脚本（一键操作） #

如果偏好一键批量处理，这个VBA脚本逻辑直白，避免了复杂嵌套：

Sub 更新中奖高亮()
    ' 定义数据区域
    Dim 参与者范围 As Range, 开奖号码范围 As Range
    Dim 单个开奖号 As Range, 匹配单元格 As Range
    
    ' 替换成你的实际工作表和区域
    Set 参与者范围 = ThisWorkbook.Sheets("参与者").Range("A2:F51")
    Set 开奖号码范围 = ThisWorkbook.Sheets("开奖记录").Range("A2:A" & Sheets("开奖记录").Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 清除旧高亮
    参与者范围.Interior.ColorIndex = xlNone
    
    ' 遍历开奖号码，高亮匹配项
    For Each 单个开奖号 In 开奖号码范围
        Set 匹配单元格 = 参与者范围.Find(单个开奖号.Value, LookIn:=xlValues, LookAt:=xlWhole)
        Do While Not 匹配单元格 Is Nothing
            匹配单元格.Interior.Color = vbYellow
            Set 匹配单元格 = 参与者范围.FindNext(匹配单元格)
        Loop
    Next 单个开奖号
    
    ' 标记集齐6个号的参与者（整行绿色）
    Dim 参与者行 As Range
    For Each 参与者行 In 参与者范围.Rows
        If Application.WorksheetFunction.CountIf(参与者行, ">=0") = 6 Then
            参与者行.EntireRow.Interior.Color = vbGreen
        End If
    Next 参与者行
End Sub

操作步骤：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴上述代码。
2. 在Excel工具栏添加宏按钮，绑定这个更新中奖高亮宏。
3. 每次新增开奖号码后，点击按钮即可完成高亮和中奖者标记。

三、动态数组法（适合Excel 365/2021） #

如果用的是支持动态数组的新版本Excel，可借助LAMBDA和MATCH函数实现更灵活的自动化：

• 在参与者表的G2单元格输入：
  =BYROW(A2:F51, LAMBDA(row, SUM(--(ISNUMBER(MATCH(row, 开奖记录!$A:$A, 0))))))
  这个公式会自动生成所有参与者的匹配数量，不用下拉填充，新增参与者时也会自动扩展。
• 同样可以给号码区域设置条件格式，公式用=ISNUMBER(MATCH(A2, 开奖记录!$A:$A, 0))实现高亮。
• 建议把开奖记录转换成超级表（Ctrl+T），这样新增开奖号码时，所有公式和条件格式会自动识别新数据，无需调整范围。

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