VBA宏开发求助：高亮选中区域内重复次数达标值

我来帮你搞定这个VBA宏的问题！你想要的功能是让用户输入一个次数阈值，然后高亮选中区域里重复次数≥该阈值的内容对吧？我猜你之前的代码大概率在选区范围处理和重复次数统计+高亮逻辑上踩了坑，比如没正确判断选区是否有效、统计时没跳过空值，或者高亮时没重置原有格式。

我给你写了一段完全可运行的代码，还加了详细注释，你直接复制过去用就行：

Sub HighlightDuplicatesByThreshold()
    Dim targetRange As Range
    Dim inputThreshold As Integer
    Dim cellValue As Variant
    Dim countDict As Object
    Dim cell As Range
    
    ' 弹出输入框让用户指定重复次数阈值
    On Error Resume Next
    inputThreshold = InputBox("请输入需要高亮的重复次数阈值：", "重复次数设置")
    On Error GoTo 0
    
    ' 校验输入有效性：用户取消输入、输入非正整数都直接退出
    If inputThreshold <= 0 Then
        MsgBox "请输入有效的正整数！", vbExclamation
        Exit Sub
    End If
    
    ' 获取用户选中的单元格区域
    Set targetRange = Selection
    If targetRange Is Nothing Then
        MsgBox "请先选中需要处理的单元格区域！", vbExclamation
        Exit Sub
    End If
    
    ' 创建字典对象，用来高效统计每个值的出现次数
    Set countDict = CreateObject("Scripting.Dictionary")
    
    ' 第一次遍历：统计所有非空值的重复次数
    For Each cell In targetRange
        cellValue = cell.Value
        If Not IsEmpty(cellValue) Then
            If countDict.Exists(cellValue) Then
                countDict(cellValue) = countDict(cellValue) + 1
            Else
                countDict.Add cellValue, 1
            End If
        End If
    Next cell
    
    ' 第二次遍历：根据阈值判断是否高亮单元格
    For Each cell In targetRange
        cellValue = cell.Value
        If Not IsEmpty(cellValue) Then
            If countDict(cellValue) >= inputThreshold Then
                ' 这里用黄色填充高亮，你可以改成其他颜色，比如vbCyan
                cell.Interior.Color = vbYellow
            Else
                ' 重置非达标单元格的填充色，避免之前的高亮残留
                cell.Interior.ColorIndex = xlColorIndexNone
            End If
        End If
    Next cell
    
    MsgBox "处理完成！已高亮重复次数≥" & inputThreshold & "的值。", vbInformation
End Sub

关键细节说明（帮你理解为什么这么写）： #

• 输入校验：加了错误处理，防止用户取消输入或者输入非数字，避免宏报错崩溃
• 选区判断：先检查用户是否选中了区域，避免空选区导致的错误
• 高效统计：用Scripting.Dictionary统计次数，比嵌套循环遍历单元格快得多，尤其是处理大区域的时候
• 格式重置：高亮的同时重置不达标单元格的填充色，避免之前的高亮结果干扰
• 空值跳过：统计和高亮都跳过空单元格，避免把空值当成重复项处理

你之前的代码如果有问题，大概率是没做这些细节处理——比如直接用Range而没判断是否为空，或者统计次数时没使用字典导致效率低甚至逻辑错误，又或者高亮时没重置原有格式。

把这段代码复制到你的VBA编辑器里，运行试试，应该完全符合你的需求！

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