刚好做过类似的Excel需求，给你两个实用方案，看你更倾向哪种：

如果你的Excel是365或2021版本，可以直接用内置函数实现自动提取重复值到D3，再配合条件格式实现实时视觉提醒：

1. 设置D3的重复值提取公式：
   在D3单元格输入以下公式，它会自动拆分C3的逗号分隔值，统计出现次数，筛选出重复值并拼接显示：

   =TEXTJOIN(", ", TRUE, UNIQUE(FILTER(TEXTSPLIT(C3, ","), COUNTIF(TEXTSPLIT(C3, ","), TEXTSPLIT(C3, ",")) >= 2, "")))
   

   公式说明：

   • TEXTSPLIT(C3, ",")：把C3的内容按逗号拆分成单个值的数组
   • COUNTIF(...) >=2：筛选出出现2次及以上的值
   • UNIQUE(...)：去重（避免重复显示同一个重复值）
   • TEXTJOIN(...)：把筛选后的重复值用逗号+空格拼接成字符串

2. 添加实时视觉提醒：
   选中C3单元格，点击「开始」→「条件格式」→「新建规则」，选择「使用公式确定要设置格式的单元格」，输入公式：

   =COUNTIF(TEXTSPLIT($C$3, ","), TRIM(C3)) >=2
   

   然后设置格式（比如填充红色背景），这样输入重复值时，C3会自动标红提醒。

如果需要输入后立刻弹窗告知重复值，或者你的Excel版本不支持TEXTSPLIT函数，用VBA是更稳妥的选择：

1. 打开VBA编辑器：
   右键你当前的工作表标签（比如「Sheet1」），选择「查看代码」，打开VBA编辑器。

2. 粘贴以下代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 只监控C3单元格的变化
       If Target.Address <> "$C$3" Then Exit Sub
       
       Dim inputVals As Variant
       Dim countDict As Object
       Dim duplicates As Collection
       Dim val As Variant
       Dim resultText As String
       
       ' 处理空值情况
       If Target.Value = "" Then
           Range("D3").ClearContents
           Exit Sub
       End If
       
       ' 拆分输入的逗号分隔值，去除每个值的前后空格
       inputVals = Split(Target.Value, ",")
       Set countDict = CreateObject("Scripting.Dictionary")
       Set duplicates = New Collection
       
       ' 统计每个值的出现次数
       For Each val In inputVals
           val = Trim(val)
           If val <> "" Then
               If countDict.Exists(val) Then
                   countDict(val) = countDict(val) + 1
               Else
                   countDict(val) = 1
               End If
           End If
       Next val
       
       ' 收集出现2次及以上的重复值
       For Each val In countDict.Keys
           If countDict(val) >= 2 Then
               On Error Resume Next ' 避免重复添加同一个值
               duplicates.Add val, Key:=val
               On Error GoTo 0
           End If
       Next val
       
       ' 更新D3单元格并弹窗提醒
       If duplicates.Count > 0 Then
           resultText = Join(duplicates, ", ")
           Range("D3").Value = resultText
           MsgBox "检测到重复值：" & resultText, vbInformation, "重复值提醒"
       Else
           Range("D3").ClearContents
       End If
   End Sub
   

3. 保存并启用宏：
   把工作簿保存为「Excel 启用宏的工作簿（.xlsm）」格式，下次打开时启用宏，之后只要你在C3输入内容，就会自动检测重复值：

   • 有重复值时：弹窗告知具体重复内容，同时D3自动显示这些值
   • 无重复值时：D3自动清空

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