Excel中选中单元格时能否弹窗显示公式计算的重复行号？

直接用工作表选择触发事件就能实现，两种可落地方案可选：

方案一：不依赖D列公式（推荐） #

不需要保留D列现有公式，直接遍历B列做内容匹配即可，后续隐藏、删除D列都不影响效果：

1. 打开目标表格，按Alt+F11调出VBA编辑器
2. 在左侧工程栏双击对应工作表名称，把下方代码粘贴到右侧弹出的代码编辑区
3. 把文件保存为.xlsm格式（启用宏的工作簿）即可生效

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅当选中B列单个非空单元格时触发逻辑
    If Target.Column <> 2 Or Target.CountLarge > 1 Then Exit Sub
    Dim checkContent As String
    checkContent = Trim(Target.Value)
    If checkContent = "" Then Exit Sub

    Dim lastRow As Long, i As Long, resRows As String
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    resRows = ""
    ' 遍历B列收集所有匹配内容的行号
    For i = 2 To lastRow
        If Trim(Cells(i, "B").Value) = checkContent Then
            resRows = resRows & i & "、"
        End If
    Next
    resRows = Left(resRows, Len(resRows) - 1)

    ' 默认弹窗提示，要改批注形式就把下面MsgBox行替换成后面的批注代码
    MsgBox "内容【" & checkContent & "】重复行号：" & vbCrLf & resRows, vbInformation, "重复提示"

    ' ———— 批注形式代码 替换上面MsgBox行即可生效 ————
    ' Target.ClearComments
    ' If UBound(Split(resRows, "、")) > 0 Then ' 仅当有多行重复时才添加批注
    '     Target.AddComment "重复行号：" & resRows
    ' End If
End Sub

• 默认效果：选中B列单元格后直接弹窗，列出该内容所有出现的行号
• 切换批注提示：删掉代码里的MsgBox行，取消下方批注代码的注释即可，选中单元格时自动加载批注，不会残留旧批注内容。

方案二：复用现有D列的公式 #

如果要保留D列已经写好的重复行号识别公式，代码逻辑更简单，直接读取D列对应值即可，D列右键选择「隐藏」完全不影响代码读取：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Or Target.CountLarge > 1 Then Exit Sub
    If Trim(Target.Value) = "" Then Exit Sub
    Dim tip As String
    tip = Cells(Target.Row, "D").Value
    If tip <> "" Then
        MsgBox "当前内容重复行号：" & vbCrLf & tip, vbInformation, "重复提示"
    End If
End Sub

如果你用的是在线Google Sheets而非桌面版Excel，用onSelectionChange简单触发器实现即可，逻辑和上述一致：获取当前选中单元格的值，遍历B列匹配拼接行号后调用SpreadsheetApp.getUi().alert()弹窗即可。

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