如何将一列中不重复的数据提取出来，生成一个下拉菜单选项？

看见星光

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <> 1 Then Exit Sub
   
3. Dim arr, d, i&
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
   
6.     For i = 1 To UBound(arr)
   
7.         If Not d.exists(arr(i, 1)) Then
   
8.             d(arr(i, 1)) = ""
   
9.         End If
   
10.     Next
    
11.     With [c2]
    
12.         .Validation.Delete
    
13.         .Validation.Add xlValidateList, , , Join(d.keys, ",")
    
14.     End With
    
15. End Sub
    

复制代码

看见星光

需要用到VBA事件代码的。附件参考：
100.rar (9.58 KB, 下载次数: 322)

2015-7-15 15:38 上传

点击文件名下载附件

看见星光

htao777 发表于 2015-7-15 16:17
你好，你的这个附件中的Excel表格打不开，打开时出现错误提示，忽略提示继续打开表格后，仍然处于保护状 ...

我重新下载打开了下，并没有问题的。