当前位置：首页 > 科技 > 正文

VBA常用小代码103：实现去重且自动显示列表的数据有效性

每一次都在孤单徘徊中坚强，每一次就算很受伤也不闪泪光，我知道我一直有双隐形的翅膀，带我飞飞过绝望…………

听首歌，都好好的……

我们今天聊的内容是单元格的数据有效性（2010版本后更名为数据验证），在EH论坛上，星光经常碰到网友提问下面酱紫的问题：

如何创建去除重复项后的下拉列表？

举个小栗子。

如下图所示，D列是一些人名，含有重复项。

现在需要根据D列的人名，在表格的A列创建去除重复人名后的数据验证下拉列表。

动画效果：

代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect([a:a], Target) Is Nothing Then Exit Sub

'如果选择的单元格不存在于A列，则退出。A列是设置数据验证的区域

If Target.Rows.Count > 1 Then Exit Sub '不允许选择多行

Dim arr, brr, i&, j&, k&, s

Dim d As Object

Set d = CreateObject('scripting.dictionary') '后期字典

arr = Range('d1:d' & Cells(Rows.Count, 'd').End(xlUp).Row) '数据来源列

If Not IsArray(arr) Then Exit Sub

'如果不存在数据源选项，则arr非数组，那么退出程序

For i = 2 To UBound(arr)

'D1是标题，从第2行开始遍历数据源，将人名装入字典

If arr(i, 1) <> '' Then d(arr(i, 1)) = ''

Next

s = Join(d.keys, ',')

With Target.Validation

.Delete'删掉旧的

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

Operator:=xlBetween, Formula1:=s 'S为数据验证的序列来源

End With

Application.SendKeys '%{down}'

'SendKeys发出快捷键atl ↓直接弹出数据验证下拉列表

Set d = Nothing '释放字典

End Sub

小贴士：

1，代码需要粘贴在相关工作表标签所对应的VBE窗口中。

2，代码使用了Worksheet_SelectionChange事件，当鼠标点击A列单元格时，系统自动运行该段代码。可以通过修改Intersect([a:a], Target)中的[a:a]，设置为其它目标区域。

3，代码使用了Application.SendKeys '%{down}'语句，其意思是键盘输入快捷键alt ↓，该快捷键可能会和电脑的其它热键冲突，该语句并不是必须的，因此部分亲们可以注释掉它。

4，握爪~晚安啦~

一码不扫，
可以扫天下？

ExcelHome

VBA编程学习与实践

你可能想看：

VBA常用小代码102：批量合并相同值单元格

我们今天分享的VBA小代码内容是批量合并相同值的单列单元格，需要将相同的班级单元格修改为合并单元格……：'用户选择数据列，'intersect语句避免用户选择整列造成无谓运算,Application....

你的数据到底有多重要？这些惊艳的数据可视化案例告诉你 | TED演讲

在本文中他分享了数据背后所蕴含的令人意想不到的重量，今天我想跟大家聊聊两件非常振奋人心的内容，但对苹果公司我不想说太多。没有事物可以像电脑那样改变我们的生活，但我其实也不想聊电脑的事儿。我想聊聊电脑上...

加工中心常用G代码和M代码大全，收藏好了！

G11--程式参数输入取消（部分机床）G16--极坐标指令有效（部分机床）G36--特别固定循环（圆弧）G45--刀具位置设定（扩张）G46--刀具位置设定（缩小）G48--刀具位置设定（减半）G53...

批量将图片插入到Excel中，且自动调整图片大小以适应单元格的大小！

如何将一个文件夹内所有的图片批量插入到Excel工作表的B列中，并且图片可以自动适应单元格的大小，现在我们想要将文件内的图片按照从左向右的先后顺序批量插入到Excel工作表的B列中，并且每一张图片自动...

精彩的导入，提高课堂有效性

能充分激发学生学习的热情和求知欲望。１、数学课导入的原则（１）新课的导向应具有吸引力 注意力是学习的先导。有经验的教师都很注意利用导入新课这个重要环节，通过谈话或一些具体、形象、直观的事物引起学生的注...

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

所以我们今天针对多行表头的数据汇总来分析下方法场景模拟假设我们要统计的Excel中每个表格都有表头，1) End If Next sth End If ActiveWorkbook.Close Fal...

板块强度排序如何量化实现？（附代码）

陶博士主要是用板块强度rps值来进行10日，能否每天刷新数据来给市场板块进行强度排序，这样能知道哪些板块强度持续，哪些板块强度值提高了，板块强度值rps说白了，所以我编写了个板块强度指标排序指标，就可...

微信群自动踢人机器人，自动踢发广告的是怎么设置的？

首先得避免它成为一个广告群，作为群主应该明令禁止群里有发广告或发其他与群主题内容无关的链接，一个机器人来帮我们做好群秩序维护工作。可以设置群内的踢广告规则，还是链接、视频等内容形式都可以判定为广告内容...

学生成绩的数据分析方法

学生成绩的数据分析方法，分析考试成绩是教师必做的工作之一，分析成绩是掌握学情的主要方式之一，还要分析学生各门学科成绩，一、班级整体的成绩分析。每次考试的分数就是绝对成绩。绝对成绩与试卷难易、学生的基础...

怎样把旧手机里的数据快速的导入新手机里

怎样把旧手机里的数据快速的导入新手机里，最为重要的麻烦的是如何将旧的手机数据传入导入新的手机了？那么如何导入新的手机呢，点击更多的设置。（只适合特定的手机机型）。根据手上的手机进行选择，4 然后选择...

如何将华为手机里的数据导入苹果手机

可以先在华为手机中登录QQ同步助手软件，将手机数据备份到网上，然后再用苹果手机登录同一个QQ同步助手账号，对数据进行下载，这样就可以将华为手机中的数据转到苹果手机中了，1、在两部手机的应用商城中搜索“...

常用JS代码大全

INPUT TYPE="BUTTON" NAME="Button" VALUE="ABCnet.CN" onclick="showModalDialog('http;//www.abcnet.cn')...

在Excel2010中真正实现行高列宽的自动调整

凡是经常做标书报价单的朋友，自动调节行高、列宽后，看起来版面很正常，但经过预览、打印或转为PDF文件后却发现，很多单元格的首、尾行都被表格线压住了，也没有发现可以很好解决的方法（手工调整除外），终于发...

这是Excel中最强大的快捷键！按下它，表格立马自动处理数据！

表格立马帮你自动处理数据！二、转换成超级表格后可以实现哪些操作，将光标移动到表格首行或首列处时。即可快速选中表格的整行或整列，在超级表格的末尾添加新数据时，你可以按tab键跳到下一个单元格中，生成多个...

浅谈提高初中物理课堂教学实效性

要提高课堂教学实效性就要提升教师的教育观念，实效性、自主学习、主导作用、新课堂教学观念、互动平台，要提高课堂教学实效性就要提升教师的教育观念。注重课堂提问和探究教学的实效性。但是有些教师实施的教学与新...

比消息更加详细的文体，实效性哪个更强呢？

今天要说的是关于通讯的相关知识。这是生活中比较常见的实用文体，了解相关知识对我们的阅读还是创作都是有好处的。通讯主要是对国内外近期出现的具有新闻意义的典型人物、事件、经验做出的具体、形象的报道。是一种...

SEER数据库系列|SEER数据库基本介绍

美国国家癌症研究所（National Cancer Institute）的SEER数据库收集了大约30％的美国人口的癌症诊断。从简单地按人群中器官部位枚举癌症的发展到包括通过组织病理学和分子亚型（由驱...

不同时辰打喷嚏所代表的吉凶

子时（晚上11点-凌晨1点）打喷嚏——有人欢朋宴客。丑时（凌晨1点-凌晨3点）打喷嚏——有人思念你、有客人前来相求事情。寅时（凌晨3点-凌晨5点）打喷嚏——有人前来相约食饭。卯时（早上5点-早上7点）...

手表的等级排名有多重要？成本和售价暗示着什么？

很多人不明白为什么一些高端手表价格如此昂贵却备受追捧，市场的接受程度和消费者愿不愿意买单才能证明这个品牌的高定位是否成功。剖析一下它们的手表成本和售价，二类手表品牌的定位属于豪华手表，它们中绝大多数品...

用万用表的蜂鸣档测试三相电机的好坏，可靠吗，需要注意些什么？

所以我们一般采用万用表的通断档来测试电动机的好坏，用万用表的蜂鸣档来测量电动机的好坏可不可靠呢？下面是我在星形接法的电机上测量的实物图。电动机星形连接。星形连接三相绕组测量阻值，电动机星形连接测量三相...

三国蜀汉皇帝列表及简介,三国蜀汉皇帝顺序表

东汉末年、天下扰乱、群雄逐鹿。汉室宗亲刘备在军阀混战中崛起，220年(延康元年)，曹操之子曹丕篡汉，刘备以汉室宗亲的身份在四川(蜀地)成都称帝。延续了汉朝大统，蜀汉始于昭烈帝刘备，但是经过关羽失荆州、...

周朝诸侯国列表

西周及春秋时期诸侯国（前1046年－前453年）[]“姬姓申国、犬戎实际上只控制首都雒邑（今河南省洛阳市）周围的狭小地区仲、伯（前770年受封）王（前325年起自称）帝（前288年自称西侯、君（前33...

宋朝王爵列表

只有奉祀宋太祖的安定郡王以及濮、秀、荣、沂四嗣王实行的世袭。广平恭肃王（赠）：安定和懿王（赠），安定郡王（赠）：建安郡王（赠），乐平郡王（赠），同安僖靖王（赠）赠南阳郡王→冀王（《宋会要辑稿》一作南康...

十二地支所代表的信息类象

五行属水，子为墨池、燕子、蝙蝠、耳、膀胱、音律为宫，为妇女、阴私、暗昧、孩童、肾、血液、鼠、江湖、排行第一：为胞肚、脾、手、山、牛、丑陋，丑又为田园、堤岸、牛郎星、贵人、蜈蚣、牛姓、田王类姓氏、浅黄色...

合并超多工作表的完美解法

然后打开它初阶汇总数据→新建查询→从文件→从工作簿→选中需要汇总的表→导入，把需要汇总的表都勾上，进入Power Query编辑器点击”→组合→将查询追加为新查询→三个或更多表→双击需要汇总的表格→确...

补充人体营养的药品列表

本品主要用作儿童和恢复期病人营养剂。用于预防和治疗因及D、C缺乏所引起的各种疾病,并可为需要长时间(超过5天)静脉营养治疗的病人提供,用于预防和治疗钙缺乏症。用于缺乏族所致的、、、的辅助治疗。用于预防...

'数据代码arr字典

上一篇
​甲肝

下一篇
《怀仁集王圣教序学习》教程｜基本笔画中透着多少干货

有话要说...

最新文章

取消
扫码支持 支付码