重复项不标注

dgzwz

Sub cccccc()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    ' 定义橙黄色（匹配常见的高亮橙黄，RGB值可微调）
    Dim orangeColor As Long: orangeColor = RGB(255, 204, 0)

    ' ===== 自定义参数（仅需改这里）=====
    Set ws = ThisWorkbook.Sheets("A") ' 替换为你的工作表名（如"数据"）
    ' ==================================

    On Error GoTo ErrorHandler

    ' 找到K列最后一行有数据的行号（避免漏行）
    lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
    If lastRow < 2 Then
        MsgBox "K列无有效数据！", vbExclamation
        Exit Sub
    End If

    ' 先清除K/L列原有填充色（避免残留旧颜色）
    ws.Range("K2:L" & lastRow).Interior.Color = xlNone

    ' 遍历每行，比较K/L列数据并标色
    For i = 2 To lastRow
        ' 排除空值：仅当K/L列都非空且值相等时标色
        If ws.Cells(i, "K").Value <> "" And ws.Cells(i, "L").Value <> "" Then
            If ws.Cells(i, "K").Value = ws.Cells(i, "L").Value Then
                ' 给当前行K、L列单元格标橙黄色
                ws.Range("K" & i & ":L" & i).Interior.Color = orangeColor
            End If
        End If
    Next i

    MsgBox "标注完成！已将K/L列数据相同的单元格标为橙黄色", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "标注出错：" & Err.Description, vbCritical
End Sub

quqiyuan

看不懂，重复项的意思，是不是前面有相同的已经标识，后面一样的话就不用，使用字典记录一下，如果一、存在就跳过就行了。

laoye5403

If ws.Cells(i, "K").Value = ws.Cells(i, "L").Value Then
这里=改成<> 号,重复就不标注,不重复就标注了.

ynzsvt

你的代码是将k和L相同的进行标注，与重复无关。