表格操作系列——使用表中的某列设置单元格有效性（下拉列表）

表格操作系列

九、使用表中的某列设置单元格有效性（下拉列表）

在给表格制作下拉列表时，需要用数据有效性的方法将表中的某一个数据填到某一个格中，这样可以在使用表格时，很方便的输入数据，并且可以避免手工录入带来的数据格式或文本的不确定性。但有一个问题是，经常数据源会有重复的数据，如果把重复的数据都写到下拉列表中，显然是不合适的，下面的函数利用字典的方法去重，再设置有效性，可以解决这个问题。

函数代码

'设置单元格的有效性
Public Function SetValid(SouRng As String, TarCell As String, Optional SouSh As String = "当前表", Optional TarSh As String = "当前表")     '字典使用，动态设置不重复有效性
Dim d As Object
Dim rng As Range
Dim i As Integer, lr As Integer
Dim Dic_Str As String
'On Error GoTo err
If SouSh = "" Or SouSh = "当前表" Then SouSh = ActiveSheet.Name
If TarSh = "" Or TarSh = "当前表" Then TarSh = ActiveSheet.Name

Set d = CreateObject("scripting.dictionary")
d.comparemode = vbTextCompare        '采用文本的比较方式，不分大小写
With Sheets(SouSh)
If InStr(1