Excel VBA - 如何确保下拉列表不包含重复项？

Question

使用以下代码，可以通过VBA为单元格D7设置下拉列表（有关详细信息，请参阅this（未经批准的答案））：

   With Range("D7").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$" & Chr(68 + col) _
             & "$2:$" & Chr(68 + col) & "$10" 'Range("E2:E4").Offset(0, col - 1)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

但是，从Chr（68 + col）2到Chr（68 + col）10的单元格中的每个值都包含在下拉列表中，包括重复项。

有没有办法只在下拉列表中包含唯一值？

提前感谢您的回答。