ExcelHome技术论坛

标题: 如何将一列中不重复的数据提取出来，生成一个下拉菜单选项？ [打印本页]
作者: htao777    时间: 2015-7-15 14:35
标题: 如何将一列中不重复的数据提取出来，生成一个下拉菜单选项？
如何将一列中不重复的数据提取出来，生成一个下拉菜单选项？

(, 下载次数: 54)

谢谢！


作者: hehongxin1987    时间: 2015-7-15 15:27
http://club.excelhome.net/thread-1095543-1-1.html这个里边讲的非常详细，是利用数据有效性来解决问题的
作者: 看见星光    时间: 2015-7-15 15:38
  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
复制代码
作者: 看见星光    时间: 2015-7-15 15:39
需要用到VBA事件代码的。附件参考：
(, 下载次数: 322)
作者: htao777    时间: 2015-7-15 16:17
看见星光 发表于 2015-7-15 15:39
需要用到VBA事件代码的。附件参考：

你好，你的这个附件中的Excel表格打不开，打开时出现错误提示，忽略提示继续打开表格后，仍然处于保护状态中，无法使用。
作者: 看见星光    时间: 2015-7-15 16:33
htao777 发表于 2015-7-15 16:17
你好，你的这个附件中的Excel表格打不开，打开时出现错误提示，忽略提示继续打开表格后，仍然处于保护状 ...

我重新下载打开了下，并没有问题的。
作者: baobeiwumay    时间: 2015-9-25 11:36
看见星光 发表于 2015-7-15 16:33
我重新下载打开了下，并没有问题的。

前辈，请问在两个不同工作表怎么写代码？
比如：源数据在sheet1，我在sheet2作下拉列表
作者: baobeiwumay    时间: 2015-9-25 12:05
baobeiwumay 发表于 2015-9-25 11:36
前辈，请问在两个不同工作表怎么写代码？
比如：源数据在sheet1，我在sheet2作下拉列表

求助详情见附件
作者: baobeiwumay    时间: 2015-9-25 13:37
baobeiwumay 发表于 2015-9-25 12:05
求助详情见附件

此问题已得到解决，连接：http://club.excelhome.net/thread-1232107-1-1.html(出处: ExcelHome技术论坛)
作者: hannah1297    时间: 2019-2-11 17:32
顶一下，很厉害



欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/) Powered by Discuz! X3.4