VBA技术问题：如何标记首次出现值为FALSE、后续重复值为TRUE？

问题根源 #

你之前的代码出错是因为CountIf的范围写法错误：Range("C1:C1" & clclrow)多写了一个1，导致实际统计范围变成了C1:C1[行号]（比如行号为2时，范围是C1:C12），而非预期的C1:C[行号]，这会让CountIf统计结果远大于1，最终所有行都被标记为TRUE。

修正后的代码方案 #

以下两种写法都能实现需求：首次出现的值标记为FALSE，后续重复项标记为TRUE。

方案1：统计当前行之前的范围（逻辑更直观）

Sub MarkDuplicates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim clclrow As Long
    
    ' 指定目标工作表，替换为你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 基于C列获取最后一行数据（比用第1列更贴合需求）
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    For clclrow = 2 To lastRow
        ' 统计当前行之前的C列区域中，当前值出现的次数
        If WorksheetFunction.CountIf(ws.Range("C1:C" & clclrow - 1), ws.Cells(clclrow, "C")) > 0 Then
            ws.Cells(clclrow, 19) = True ' 已出现过，标记为重复
        Else
            ws.Cells(clclrow, 19) = False ' 首次出现，标记为非重复
        End If
    Next clclrow
End Sub

方案2：简化判断逻辑

直接统计从C1到当前行的出现次数，若次数大于1则判定为重复项：

Sub MarkDuplicatesSimpler()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim clclrow As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    For clclrow = 2 To lastRow
        ' 一行代码完成判断：出现次数>1则标记为TRUE
        ws.Cells(clclrow, 19) = (WorksheetFunction.CountIf(ws.Range("C1:C" & clclrow), ws.Cells(clclrow, "C")) > 1)
    Next clclrow
End Sub

额外提示 #

• 替换代码中的"Sheet1"为你实际使用的工作表名称；
• 运行代码后，第19列（S列）会生成标记，后续可在数据透视表中筛选FALSE值，仅保留首次出现的数据。

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