如何批量查找指定数据的重复项并添加自定义备注？

嘿，这个需求绝对可以实现！针对你那1万行的数据集，我给你准备了两种简单靠谱的方案，不管你习惯用公式还是自动化操作都能搞定：

方法1：用Excel公式快速标记 #

这种方法适合临时操作，不用搞复杂的脚本：

• 假设你选中的目标值在A5单元格（你可以根据实际位置调整），想要在B列对应行添加recorded备注
• 点击B2单元格（对应A列第一行数据），输入公式：
  =IF(A2=$A$5,"recorded","")
• 把鼠标放在B2单元格右下角，等光标变成十字形后，按住左键下拉到最后一行数据（10000行的话，双击十字光标就能自动填充，超方便）

这样所有A列和A5值相同的行，B列都会自动填上recorded，其他行保持空白。

如果你需要只标记重复出现的目标值（唯一出现的目标值不标记），可以用这个进阶公式：
=IF(AND(A2=$A$5,COUNTIF($A$2:$A$10001,A2)>1),"recorded","")
记得把$A$2:$A$10001替换成你实际的数据范围，确保包含所有10000行数据。

方法2：VBA脚本一键自动化标记 #

如果你需要经常做这个操作，或者想省下拉公式的时间，用VBA脚本绝对高效：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 粘贴以下代码：

Sub MarkDuplicatesOfSelectedValue()
    Dim targetValue As Variant
    Dim rng As Range
    Dim cell As Range
    
    ' 确保只选中一个目标单元格
    If Selection.Cells.Count <> 1 Then
        MsgBox "请只选中一个包含目标值的单元格哦！"
        Exit Sub
    End If
    targetValue = Selection.Value
    
    ' 设置要处理的A列范围（这里假设到第10001行，可按需调整）
    Set rng = ThisWorkbook.ActiveSheet.Range("A2:A10001")
    
    ' 遍历所有单元格，匹配到目标值就给B列加备注
    For Each cell In rng
        If cell.Value = targetValue Then
            cell.Offset(0, 1).Value = "recorded"
        End If
    Next cell
    
    MsgBox "标记完成啦！"
End Sub

4. 回到Excel界面，选中A列里你想要标记的特定值单元格，按下Alt + F8，选择MarkDuplicatesOfSelectedValue并点击「执行」

这个脚本会自动遍历A列所有1万行数据，把和你选中值相同的行的B列填上recorded，全程不用手动操作，效率拉满！

小提示 #

如果你需要的备注是yes或者其他文本，只需要把公式里的"recorded"或者VBA代码里的"recorded"改成你想要的内容就行~

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