Excel 365企业版：如何获取无名称数据验证下拉列表选中值索引？

针对你用Microsoft 365企业版Excel做的无命名数据源下拉列表，这里提供两种实用方法：

一、公式法（适合快速手动计算） #

场景1：数据源是单元格区域 #

1. 先找到下拉列表的数据源区域：选中带下拉的单元格，点击「数据」选项卡→「数据验证」→「设置」，查看「来源」里的区域（比如$C$2:$C$10）。
2. 在任意空白单元格输入公式：

   =MATCH(下拉单元格地址, 数据源区域, 0)
   

   例如下拉单元格是A1，数据源是$C$2:$C$10，公式就是：

   =MATCH(A1,$C$2:$C$10,0)
   

   回车后就能得到选中值在数据源里的索引（从1开始计数）。

场景2：数据源是直接输入的逗号分隔序列 #

如果数据验证的来源是手动输入的字符串（比如苹果,香蕉,橙子），直接用TEXTSPLIT拆分序列后匹配：

=MATCH(A1,TEXTSPLIT(A1.Validation.Formula1,","),0)

这个公式会自动提取下拉列表的源序列，拆分后找到选中值的位置。

二、VBA函数法（适合批量/自动处理） #

如果需要批量获取多个下拉列表的索引，或者要在宏里调用，用自定义函数更高效：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿→「插入」→「模块」。
2. 粘贴以下代码：

Function GetDropDownIndex(targetCell As Range) As Integer
    On Error Resume Next
    Dim valSource As String
    valSource = targetCell.Validation.Formula1
    Dim sourceArray As Variant
    
    ' 区分数据源是单元格区域还是手动输入的序列
    If Left(valSource, 1) = "=" Then
        sourceArray = Range(Mid(valSource, 2)).Value
    Else
        sourceArray = Split(valSource, ",")
    End If
    
    ' 遍历匹配单元格区域的情况（二维数组）
    Dim i As Integer
    For i = LBound(sourceArray) To UBound(sourceArray)
        If sourceArray(i, 1) = targetCell.Value Then
            GetDropDownIndex = i
            Exit Function
        End If
    Next i
    
    ' 遍历匹配手动序列的情况（一维数组）
    For i = LBound(sourceArray) To UBound(sourceArray)
        If sourceArray(i) = targetCell.Value Then
            GetDropDownIndex = i + 1 ' 转成从1开始的索引
            Exit Function
        End If
    Next i
    
    GetDropDownIndex = 0 ' 未匹配到返回0
End Function

3. 返回Excel，在单元格输入=GetDropDownIndex(A1)（A1替换成你的下拉单元格），就能得到索引。

注意事项 #

• MATCH函数的第三个参数必须设为0，确保精确匹配，否则可能返回错误结果。
• 如果数据源里有重复值，两种方法都会返回第一个匹配项的索引。
• VBA函数需要启用宏才能使用，保存文件时要选.xlsm格式。

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