如何修改Excel动态范围ValList使下拉菜单仅显示唯一值？

嘿，我完全get到你的需求啦！要让基于ValList的下拉菜单只展示唯一值，咱们分两种场景来解决，适配不同版本的工具环境：

方法一：用动态数组公式（适合Excel 365/2021及以后版本） #

这种方法最省心，不需要写代码，直接利用内置的去重函数就能搞定：

• 点击「公式」选项卡 → 打开「名称管理器」
• 找到已有的「ValList」名称，点击「编辑」
• 在「引用位置」里替换成类似这样的公式：

  =UNIQUE(Sheet1!$A$2:$A$100)
  

  （把Sheet1!$A$2:$A$100换成你实际存放原始数据的单元格范围哦）
• 点击「确定」保存，你的下拉菜单就会自动加载去重后的唯一值了！

方法二：用VBA实现（适合旧版Excel，无UNIQUE函数） #

如果用的是没有动态数组功能的旧版Excel，咱们可以写个小宏来自动更新唯一值范围：

第一步：编写更新唯一值的宏 #

打开VBA编辑器（按Alt + F11），插入一个模块，粘贴下面的代码：

Sub UpdateUniqueValList()
    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim uniqueVals As Collection
    Dim cell As Range
    Dim i As Integer
    
    ' 替换成你的工作表名称和原始数据列
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set sourceRange = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    Set uniqueVals = New Collection
    
    ' 收集唯一值（跳过空单元格）
    On Error Resume Next
    For Each cell In sourceRange
        If cell.Value <> "" Then
            uniqueVals.Add cell.Value, Key:=CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 清空临时存储区域（这里用B列，你可以换成其他不影响的列）
    ws.Range("B2:B" & ws.Rows.Count).Clear
    
    ' 将唯一值写入临时区域
    For i = 1 To uniqueVals.Count
        ws.Cells(i + 1, "B").Value = uniqueVals(i)
    Next i
    
    ' 更新名称管理器里的ValList范围
    ThisWorkbook.Names("ValList").RefersTo = "=Sheet1!$B$2:$B$" & (uniqueVals.Count + 1)
End Sub

第二步：设置自动更新 #

回到你的工作表代码窗口（在VBA编辑器左侧找到对应工作表，双击打开），粘贴下面的代码，这样当原始数据变化时会自动更新ValList：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当A列（原始数据列）有变化时触发更新
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        UpdateUniqueValList
    End If
End Sub

注意事项 #

• 临时存储区域（比如示例里的B列）可以设置为隐藏，避免影响表格美观
• 确保你的下拉菜单数据验证来源选择的是「ValList」

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