如何通过VBA让Excel UserForm显示条件格式高亮的重复项？

完全可以用VBA实现这个需求，核心思路是读取Excel单元格的条件格式状态，再同步到UserForm的日志控件上。下面以最常用的ListBox控件为例，给出具体实现步骤和代码：

1. 编写判断重复项高亮的函数 #

这个函数会检查指定单元格是否因「重复项条件格式」被高亮：

Function IsDuplicateHighlighted(rng As Range) As Boolean
    Dim cfRule As FormatCondition
    '遍历单元格的所有条件格式规则
    For Each cfRule In rng.FormatConditions
        '匹配重复项规则类型
        If cfRule.Type = xlDuplicateValues Then
            '判断单元格是否触发了该规则（即是否有高亮背景）
            IsDuplicateHighlighted = cfRule.AppliesTo.Cells(rng.Row - cfRule.AppliesTo.Row + 1, _
                rng.Column - cfRule.AppliesTo.Column + 1).DisplayFormat.Interior.ColorIndex <> xlColorIndexNone
            Exit Function
        End If
    Next cfRule
    IsDuplicateHighlighted = False
End Function

2. 同步高亮到UserForm的日志控件 #

假设你的UserForm里的日志控件名为ListBox_Log，数据来自Sheet1的A2:E区域，重复项条件格式设置在B列，在UserForm初始化或数据更新时执行以下代码：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim highlightColor As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '清空并初始化ListBox
    ListBox_Log.Clear
    ListBox_Log.ColumnCount = 5 '根据你的实际列数调整
    
    '加载数据并同步高亮
    For i = 2 To lastRow
        ListBox_Log.AddItem
        '逐列填充数据
        For j = 0 To 4
            ListBox_Log.List(i - 2, j) = ws.Cells(i, j + 1).Value
        Next j
        '检查当前行B列是否是重复项高亮
        If IsDuplicateHighlighted(ws.Cells(i, "B")) Then
            '获取Excel里的高亮颜色
            highlightColor = ws.Cells(i, "B").DisplayFormat.Interior.Color
            '设置ListBox整行的背景色
            For j = 0 To 4
                ListBox_Log.List(i - 2, j).BackColor = highlightColor
            Next j
        End If
    Next i
End Sub

补充说明 #

• 如果你的日志用的是MSFlexGrid控件，设置背景色的逻辑类似，只需把ListBox的背景色设置代码替换为：MSFlexGrid1.Row = i-1: MSFlexGrid1.Col = j: MSFlexGrid1.CellBackColor = highlightColor
• 若需要实时同步（比如录入新数据后立即更新高亮），可以把上述加载数据的代码放到「录入完成」按钮的Click事件里，而不只是UserForm初始化时执行
• 如果你的条件格式是「唯一值」而非重复项，只需把函数里的xlDuplicateValues改成xlUniqueValues即可

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