Excel VBA需求：指定列检测重复项并在目标列标记Duplicate

原参考代码问题修正 #

你提供的参考代码存在几处关键错误，导致无法正确检测F列重复值：

• 错误引用了A列（Cells(iCntr, 1)）而非目标检测列F列（第6列）
• 使用WorksheetFunction.Match会在无匹配时抛出运行时错误，容错性差
• 仅标记后续重复项，首次出现的重复值不会被标记（若需全量标记需调整）
• 未完全限定单元格所属工作表，可能在多工作表场景下出错

优化后的代码（标记非首次出现的重复项） #

这个版本会在CG列（第80列）标记除首次出现外的重复值：

Sub MarkDuplicates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim iCntr As Long
    Dim matchFoundIndex As Variant '用Variant接收Application.Match结果，处理无匹配情况
    
    '指定目标工作表
    Set ws = ThisWorkbook.Worksheets("Master")
    
    '获取F列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    
    '遍历F列所有行
    For iCntr = 1 To lastRow
        '跳过空单元格
        If ws.Cells(iCntr, "F").Value <> "" Then
            '查找当前值在F列首次出现的位置
            matchFoundIndex = Application.Match(ws.Cells(iCntr, "F").Value, ws.Range("F1:F" & lastRow), 0)
            
            '若首次出现位置不等于当前行，说明是重复项
            If Not IsError(matchFoundIndex) And iCntr <> matchFoundIndex Then
                ws.Cells(iCntr, "CG").Value = "Duplicate"
            Else
                '清除非重复项的标记（可选）
                ws.Cells(iCntr, "CG").Value = ""
            End If
        Else
            '空单元格清空标记（可选）
            ws.Cells(iCntr, "CG").Value = ""
        End If
    Next iCntr
End Sub

全量标记重复项（所有重复值都标记） #

如果需要把所有重复出现的值都标记（包括首次出现的），可以改用CountIf判断：

Sub MarkAllDuplicates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim iCntr As Long
    
    Set ws = ThisWorkbook.Worksheets("Master")
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    
    For iCntr = 1 To lastRow
        If ws.Cells(iCntr, "F").Value <> "" Then
            '判断当前值在F列出现次数是否大于1
            If Application.WorksheetFunction.CountIf(ws.Range("F1:F" & lastRow), ws.Cells(iCntr, "F").Value) > 1 Then
                ws.Cells(iCntr, "CG").Value = "Duplicate"
            Else
                ws.Cells(iCntr, "CG").Value = ""
            End If
        Else
            ws.Cells(iCntr, "CG").Value = ""
        End If
    Next iCntr
End Sub

关键说明 #

• 工作表限定：全程使用ws.前缀指定单元格所属工作表，避免激活工作表（Activate操作非必需，建议移除）
• 列号/列名灵活调整：代码中用"F"和"CG"直接指定列名，比数字列号更直观，修改时只需替换这两个字符串即可
• 错误处理：使用Application.Match替代WorksheetFunction.Match，配合IsError判断避免无匹配时的运行时错误
• 空单元格处理：自动清空空单元格对应的标记列内容，保持表格整洁

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