excel的下拉菜单的动态选择

[小锅儿]

A列， B列 , C列,D列
A，A01， A，下拉菜单（A01,A02,A03)
A,A02，B，下拉菜单(B01,B02)
A,A03
B,B01
B,B02

电脑不能上传图片，就简单描述下吧，希望excel大神指点下

A，B列是数据源， C列是A列中筛选掉重复的值，要实现的是D列根据C列的内容，生成对应的下拉菜单

不太清楚咋实现啦，谢谢～

[小锅儿]

数据源

CD NAME
A A01
A A02 CD NAME
A A03 A
A A04 B
B B01 C
B B02
B B03
C C01

已经解决： 大家有需要的可以参找：=OFFSET($F$6,MATCH(I9,$E$7:$E$14,),,COUNTIF($E$7:$E$14,I9))

[X-i-n]

手工遍历一遍生成序列，然后填充到对应单元格有效序列里。这是为选定区域添加序列型（1,2,3,4,5）的数据有效性验证代码。

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1,2,3,4,5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With

[小锅儿]

引用 1 楼 Runnerchin 的回复:

手工遍历一遍生成序列，然后填充到对应单元格有效序列里。这是为选定区域添加序列型（1,2,3,4,5）的数据有效性验证代码。

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1,2,3,4,5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With

多谢回答。有没有公式就可以实现的方法啊？ 因为这样的单元格有上千个