Excel VBA多值下拉验证：设置目标范围为S10至S150

嘿，我来帮你把这个多选下拉列表的功能扩展到S10到S150区域！

你现在的代码里，判断条件If Target.Address = "$S10"是精确匹配单个单元格地址，所以只有S10能触发功能。要改成覆盖S10到S150，我们需要换一种更可靠的方式判断目标单元格是否在指定范围内——用Intersect函数，它还能处理用户选中多个单元格修改的情况。

修改后的完整代码片段 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Oldvalue As String
    Dim Newvalue As String
    On Error GoTo Exitsub
    
    ' 关键修改：判断Target是否在S10:S150范围内
    If Not Intersect(Target, Me.Range("S10:S150")) Is Nothing Then
        If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
            GoTo Exitsub
        Else
            If Target.Value = "" Then GoTo Exitsub
            Application.EnableEvents = False
            Newvalue = Target.Value
            Application.Undo
            Oldvalue = Target.Value
            If Oldvalue = "" Then
                Target.Value = Newvalue
            Else
                If InStr(1, Oldvalue, Newvalue) = 0 Then
                    Target.Value = Oldvalue & ", " & Newvalue
                Else
                    Target.Value = Oldvalue
                End If
            End If
        End If
    End If
Exitsub:
    Application.EnableEvents = True
End Sub

关键修改点说明 #

• 把原来的If Target.Address = "$S10"替换成If Not Intersect(Target, Me.Range("S10:S150")) Is Nothing
• Intersect函数会检查Target和我们指定的S10:S150区域是否有重叠，只要用户修改了这个范围内的单元格（不管是单个还是多个），代码就会执行后续的多选逻辑
• 这种写法比直接对比单元格地址更灵活健壮，能适配更多操作场景

改完之后，S列从S10到S150的所有带数据验证下拉列表的单元格，都能实现多选功能啦！

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