在VBA中的验证列表中，从选定的值(而不是从第一个值开始)运行For Each循环

Dim rng As Range
Set rng = Selection ' 获取选定的单元格

If rng.Validation.Type = xlValidateList Then
    ' 单元格包含验证列表
    ' 在这里编写处理选定值的代码
End If

Dim rng As Range
Set rng = Selection ' 获取选定的单元格

If rng.Validation.Type = xlValidateList Then
    ' 单元格包含验证列表
    Dim listValues As Variant
    listValues = Split(rng.Validation.Formula1, ",") ' 将验证列表拆分为数组
    
    Dim selectedValue As Variant
    selectedValue = rng.Value ' 获取选定的值
    
    Dim found As Boolean
    found = False
    
    ' 遍历数组，查找选定的值
    For Each value In listValues
        If value = selectedValue Then
            found = True
            Exit For
        End If
    Next value
    
    If found Then
        ' 选定的值存在于验证列表中
        ' 在这里编写处理选定值的代码
    Else
        ' 选定的值不在验证列表中
        ' 在这里编写处理不合法值的代码
    End If
End If