Excel下拉框功能需求：选择后检查指定行名称是否存在于对应列中

这个需求完全可以实现，用Excel自带的VBA事件就能搞定，具体步骤如下：

实现步骤 #

• 打开你的Excel文件，按Alt+F11打开VBA编辑器，或者右键对应的工作表标签，选择「查看代码」进入工作表模块。
• 把下面的代码粘贴到模块里：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 下拉框所在的单元格范围，根据你实际的表格修改，比如示例是B18到Z100
    Dim dropDownRange As Range
    Set dropDownRange = Me.Range("B18:Z100")
    
    ' 只处理单个下拉框单元格的变化
    If Target.Cells.Count > 1 Or Intersect(Target, dropDownRange) Is Nothing Then Exit Sub
    
    ' 获取当前行A列的名称（如果是固定检查A18单元格，就改成Me.Range("A18").Value）
    Dim checkName As String
    checkName = Me.Range("A" & Target.Row).Value
    
    If checkName = "" Then Exit Sub ' 名称为空就不处理
    
    ' 当前列的上方区域（从第1行到当前单元格的上一行）
    Dim colRange As Range
    Set colRange = Me.Range(Me.Cells(1, Target.Column), Me.Cells(Target.Row - 1, Target.Column))
    
    ' 查找名称是否存在
    Dim foundCell As Range
    Set foundCell = colRange.Find(What:=checkName, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' 优先移除当前列里的重复名称
        foundCell.ClearContents
        ' 可选：弹出提示框，不需要的话删掉这行
        MsgBox "已移除当前列中重复的名称：" & checkName, vbInformation, "提示"
    End If
End Sub

注意事项 #

• 代码里的dropDownRange要改成你实际的下拉框所在区域，比如你的下拉框在C18到E50，就改成Me.Range("C18:E50")
• 如果你的需求是固定检查A18单元格（不是下拉框所在行的A列），就把checkName = Me.Range("A" & Target.Row).Value改成checkName = Me.Range("A18").Value
• 保存文件时要选「Excel 启用宏的工作簿（*.xlsm）」格式，不然宏会失效
• 打开文件时要允许宏运行，不然代码不会生效

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