如何使用表格列中的唯一条目生成命名范围

Question

我想从已定义表的已定义列中获取唯一值，并将其用于下拉列表。

我能够基于该列设置名称，但是它将重复。如何只有唯一的条目？

实际示例：

使用的代码：

Sub GenerateNameList()

    ActiveWorkbook.Names.Add Name:="Listofnames", RefersToR1C1:="TaskList[Name]"
    ActiveWorkbook.Names("Listofnames").Comment = ""

End Sub

Sub FilterByName()
    ActiveSheet.ListObjects("TaskList").Range.AutoFilter Field:=1, Criteria1:=ActiveSheet.Range("E1")
End Sub

Sub RemoveFilter()
    ActiveSheet.ListObjects("TaskList").Range.AutoFilter Field:=1
End Sub