VBA实现单列合并列重复项高亮及统计问题求助

我来帮你排查下代码里的问题，同时给出修正后的解决方案：

核心问题分析 #

你的代码主要有3个关键问题导致统计无输出、不符合需求：

1. CountDupes的区域选择错误：Set rng = Range("H2").End(xlDown) 只选中了H列从H2往下的最后一个非空单元格，而非整个需要遍历的数据区域，循环相当于只执行了一次，自然没有有效输出。
2. 依赖单元格颜色统计不可靠：通过Interior.ColorIndex判断重复项容易受手动格式修改、Excel主题影响，导致统计偏差。
3. Duplicate_Check未排除空白单元格：原代码给整列H添加重复项高亮，会把多个空白单元格识别为重复项，不符合你“不可高亮空白单元格”的要求。

修正后的完整代码 #

1. 修正重复项高亮（自动排除空白） #

Sub Duplicate_Check()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Master Checklist") '直接绑定工作表，避免Activate的坑
    
    '清除H列原有条件格式，防止重复叠加
    ws.Columns("H:H").FormatConditions.Delete
    
    '添加带非空判断的重复项高亮规则
    With ws.Columns("H:H").FormatConditions.AddUniqueValues
        .SetFirstPriority
        .DupeUnique = xlDuplicate
        .StopIfTrue = False
        .Formula = "=NOT(ISBLANK(H1))" '仅对非空白单元格应用格式
        With .Interior
            .ColorIndex = 40
            .TintAndShade = 0
        End With
    End With
End Sub

2. 修正重复项统计（准确遍历+可靠判断） #

Sub CountDupes()
    Dim countofDupes As Long
    Dim rng As Range
    Dim myCell As Range
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("Master Checklist")
    countofDupes = 0
    
    '正确选中H2到最后一行非空单元格的完整区域
    Set rng = ws.Range("H2", ws.Cells(ws.Rows.Count, "H").End(xlUp))
    
    '遍历每个单元格，直接基于值判断重复（比看颜色更稳定）
    For Each myCell In rng
        If Not IsEmpty(myCell.Value) Then '跳过空白单元格
            '用CountIf判断当前值在区域内出现次数>1，即为重复项
            If Application.WorksheetFunction.CountIf(rng, myCell.Value) > 1 Then
                countofDupes = countofDupes + 1
                Debug.Print "单元格 " & myCell.Address & " 是重复项，当前统计总数：" & countofDupes
            End If
        End If
    Next myCell
    
    '可选：把统计结果写入指定单元格，比如Sheet2的L2
    'Sheet2.Range("L2").Value = countofDupes
    MsgBox "重复项总数：" & countofDupes, vbInformation
End Sub

关键改动说明 #

• 摒弃Activate/Select操作：直接通过工作表对象操作单元格，减少因切换工作表导致的错误，代码更健壮。
• 准确选择数据区域：ws.Cells(ws.Rows.Count, "H").End(xlUp) 能精准定位H列最后一个非空单元格，配合H2组成完整的数据区域。
• 双重排除空白：在条件格式和统计逻辑中都加入了非空判断，严格符合需求。
• 可靠的重复判断逻辑：用CountIf直接基于单元格值判断重复，避免了依赖条件格式颜色的不稳定因素。

现在先运行Duplicate_Check完成非空白重复项的高亮，再运行CountDupes就能在立即窗口看到详细统计过程，最后还会弹出消息框显示最终总数。

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