Excel VBA条件高亮求助：基于In progress状态高亮重复任务值

嘿，作为VBA新手能主动动手写代码已经超棒啦！我来帮你梳理需求并完善代码，实现你要的高亮功能。

先明确你的核心需求：

• 当**Status列值为"In progress"**时，处理对应行的任务
• 拆分Task列中逗号分隔的内容，确保每个子任务都被检查
• 检查Task与Task2列的重复值，只要关联状态是"In progress"，就高亮这些重复项
• 重复值检查范围覆盖Task和Task2两列

你的数据示例 #

第一组数据

第二组数据

完整实现代码 #

下面是针对你需求写的完整VBA代码，我会在后面解释关键逻辑：

Sub HighlightDuplicateTasks()
    Dim sht As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim taskArr As Variant
    Dim i As Integer
    Dim taskDict As Object
    Dim targetCols As Range
    Dim cleanTask As String
    Dim key As Variant
    Dim rowList As Variant
    Dim targetCell As Range
    
    ' 设置要操作的工作表，可替换为指定表名，比如 Sheets("你的工作表名")
    Set sht = ActiveSheet
    ' 创建字典存储任务及对应的行号，用于快速判断重复
    Set taskDict = CreateObject("Scripting.Dictionary")
    
    ' 获取数据区域的最后一行（以A列为准，可根据实际调整）
    lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    
    ' 第一步：收集所有"In progress"状态下的任务（含拆分后的子任务）
    For Each cell In sht.Range("D2:D" & lastRow) ' 假设Status列是D列，务必根据你的表格调整！
        If UCase(cell.Value) = "IN PROGRESS" Then
            ' 拆分Task列（B列）的逗号分隔内容
            taskArr = Split(sht.Cells(cell.Row, "B").Value, ",")
            For i = LBound(taskArr) To UBound(taskArr)
                cleanTask = Trim(taskArr(i))
                If cleanTask <> "" Then
                    ' 记录任务出现的行号，重复则追加行号
                    If taskDict.Exists(cleanTask) Then
                        taskDict(cleanTask) = taskDict(cleanTask) & "," & cell.Row
                    Else
                        taskDict(cleanTask) = cell.Row
                    End If
                End If
            Next i
            
            ' 处理Task2列（C列）的内容，非空则加入字典
            cleanTask = Trim(sht.Cells(cell.Row, "C").Value)
            If cleanTask <> "" Then
                If taskDict.Exists(cleanTask) Then
                    taskDict(cleanTask) = taskDict(cleanTask) & "," & cell.Row
                Else
                    taskDict(cleanTask) = cell.Row
                End If
            End If
        End If
    Next cell
    
    ' 第二步：遍历字典，高亮重复出现的任务
    For Each key In taskDict.Keys
        ' 若任务出现多次（行号列表长度>1）
        If UBound(Split(taskDict(key), ",")) > 0 Then
            rowList = Split(taskDict(key), ",")
            For i = LBound(rowList) To UBound(rowList)
                ' 定位当前行的Task和Task2列
                Set targetCols = sht.Range("B" & rowList(i) & ",C" & rowList(i))
                For Each targetCell In targetCols
                    ' 检查单元格是否包含该任务（适配Task列多任务的情况）
                    If InStr(1, Trim(targetCell.Value), key, vbTextCompare) > 0 Then
                        ' 设置高亮颜色，这里用浅黄色，可自行修改RGB值
                        targetCell.Interior.Color = RGB(255, 255, 153)
                    End If
                Next targetCell
            Next i
        End If
    Next key
    
    MsgBox "重复任务高亮完成！"
End Sub

关键逻辑说明 #

1. 字典的使用：用Scripting.Dictionary来高效记录每个任务出现的行号，避免重复遍历数据，提升效率
2. 拆分逗号内容：用Split函数把Task列的多任务拆分成数组，确保每个子任务都被纳入检查
3. 列号适配：代码里假设Status列是D列、Task是B列、Task2是C列，你一定要根据自己的表格结构修改对应的列号！
4. 高亮规则：只高亮与"In progress"状态关联的重复任务，且精准匹配单元格中的任务内容（哪怕单元格有多个任务）

新手注意事项 #

• 运行代码前，建议先备份你的Excel文件，避免意外格式修改
• 如果代码报错，先检查列号是否匹配你的表格，比如Status列是不是在D列
• 颜色可以自行调整，比如把RGB(255,255,153)改成红色RGB(255,0,0)或者其他你喜欢的颜色

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