嘿，这个问题我之前帮同事搞定过，批量处理这种逗号分隔的重复学号真的不用一个个去跑COUNTIF，效率太低了！给你几个高效的方案，选适合你的来用：

方案1：用Power Query一键拆分+统计（零公式，最推荐） #

这个方法不用写任何公式，操作几步就能搞定，还能重复使用：

• 选中所有存储学号的单元格区域（比如A1:A100）
• 点击Excel顶部的「数据」选项卡 → 选择「从表格/区域」（如果弹出确认框，有表头就勾选「我的表格有标题」，没有就取消）
• 进入Power Query编辑器后，选中存放学号的列 → 点击「转换」选项卡 → 「拆分列」→ 按分隔符「逗号」拆分，选择拆分为行（这一步会把所有逗号分隔的学号单独拆成一行）
• 接下来点击「开始」选项卡 → 「分组依据」，设置参数：
  • 分组依据：选择你的学号列
  • 新列名：比如叫「出现次数」
  • 操作：选择「计数行」
• 最后点击「关闭并上载」，Excel会自动生成一个新工作表，里面列出了每个学号的出现次数，直接筛选「出现次数」>1的行，就是你要找的重复学号

方案2：用动态数组公式组合（适合不想用Power Query的情况） #

如果你的Excel是365/2021版本，支持动态数组，可以用这个公式一次性搞定：
假设学号都在A1:A100区域，在空白单元格（比如B1）输入：
=TEXTJOIN(",",TRUE,A1:A100)
这个公式会把所有单元格里的学号合并成一个大的逗号分隔字符串。

然后在C1输入这个嵌套公式：

=LET(
    allIds, TEXTSPLIT(B1, ","),
    uniqueIds, UNIQUE(allIds),
    count, COUNTIF(allIds, uniqueIds),
    FILTER(HSTACK(uniqueIds, count), count>1)
)

解释下这个公式的逻辑：

1. TEXTSPLIT把合并后的字符串拆分成单独的学号列表
2. UNIQUE提取所有不重复的学号
3. COUNTIF统计每个学号的出现次数
4. FILTER和HSTACK把学号和对应次数合并，只保留出现次数>1的结果

如果是旧版Excel（不支持动态数组），还是优先用Power Query更高效。

方案3：VBA批量处理（适合有编程基础的同学） #

如果经常需要做这个操作，可以写个简单的VBA宏一键完成：
按Alt+F11打开VBA编辑器，插入一个新模块，粘贴下面的代码：

Sub FindDuplicateStudentIds()
    Dim rng As Range
    Dim cell As Range
    Dim idArr() As String
    Dim idDict As Object
    Set idDict = CreateObject("Scripting.Dictionary")
    
    ' 弹出对话框让你选择要处理的单元格区域
    Set rng = Application.InputBox("请选择存储学号的单元格区域", Type:=8)
    
    ' 遍历每个单元格，拆分学号并统计出现次数
    For Each cell In rng
        If cell.Value <> "" Then
            idArr = Split(cell.Value, ",")
            For Each id In idArr
                id = Trim(id) ' 去除学号前后的空格，避免因为空格导致的误判
                If idDict.Exists(id) Then
                    idDict(id) = idDict(id) + 1
                Else
                    idDict(id) = 1
                End If
            Next id
        End If
    Next cell
    
    ' 新建一个工作表存放结果
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add
    ws.Range("A1").Value = "学号"
    ws.Range("B1").Value = "出现次数"
    
    ' 把重复的学号写入新工作表
    Dim i As Integer
    i = 2
    For Each key In idDict.Keys
        If idDict(key) > 1 Then
            ws.Range("A" & i).Value = key
            ws.Range("B" & i).Value = idDict(key)
            i = i + 1
        End If
    Next key
    
    MsgBox "重复学号已提取到新工作表！"
End Sub

保存后，回到Excel，按Alt+F8运行这个宏，选择要处理的区域，就能自动生成包含重复学号的工作表了。

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