ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 276|回复: 20

[求助] 字典中怎樣查找item對應的key?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-10-12 12:44 | 显示全部楼层 |阅读模式
只有查找key找item
能否查找item來找key?

TA的精华主题

TA的得分主题

发表于 2017-10-12 13:03 | 显示全部楼层
For Each k In d.keys
    If d(k) = "目标值" Then Msgbox k
Next

TA的精华主题

TA的得分主题

发表于 2017-10-12 13:17 | 显示全部楼层
以 item查找對應的  key   理论上是不科学的。

各人的身份证编号是唯的一(相当于 Key)。对应的各人的姓名可以是相同的(相当于 Item)。

TA的精华主题

TA的得分主题

发表于 2017-10-12 13:39 | 显示全部楼层
CC例例 发表于 2017-10-12 13:03
For Each k In d.keys
    If d(k) = "目标值" Then Msgbox k
Next

但是item可以很多重复,这种查找不太准确。。。他问这个问题的用处我猜测,A1:A4是 1 2 3 4 ,b1 :b4是 9 8 8 7 然后A列入字典。。把所有的B列8对应的A值找出来。。 因为如果是b列入字典,去重后,只能调用A列一个值出来。。。

TA的精华主题

TA的得分主题

发表于 2017-10-12 13:44 | 显示全部楼层
item会有重复的。

比如一个字对应的是一个拼音,但一个拼音可以对应很多字。

如果需求是这样,不需要字典,循环即可。

TA的精华主题

TA的得分主题

发表于 2017-10-12 13:54 | 显示全部楼层
Nhand 发表于 2017-10-12 13:39
但是item可以很多重复,这种查找不太准确。。。他问这个问题的用处我猜测,A1:A4是 1 2 3 4 ,b1 :b4是 9 ...

无聊的问题,难道就不能灵活应用字典吗?b列值入字典,a列对应的值为项以数组存入不行吗?

TA的精华主题

TA的得分主题

发表于 2017-10-12 14:01 | 显示全部楼层
CC例例 发表于 2017-10-12 13:54
无聊的问题,难道就不能灵活应用字典吗?b列值入字典,a列对应的值为项以数组存入不行吗?

其实还有种方法。就是b列存入字典,A列还是作为item存入。但是存入字典的时候,采用d(cells(i,"b"))=cells(i,"a")      cells(i,"b")后面不能加.value 然后这样字典就不会去重。但是这个时候 不能用d.item(8)来调用a列值。。调出来会是空值,只能用for each t in d.keys    if t=8 then arr(i)=d.item(t) 这样可以把所有的8对应的A列的值找出来,这个速度也可以,虽然是循环,但是循环的是字典,不影响速度

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-10-12 14:14 | 显示全部楼层
謝謝大家
還有個問題
將重複的items變成唯一的keys時
想將那keys再放入數組
能否不輸出工作頁直接循環放入數組?
我只想到要先輸出工作頁
再把他 arr = range("xx:xx")

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-10-12 15:25 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-10-12 16:53 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

手机版|关于我们|联系我们|ExcelHome   

GMT+8, 2017-12-19 00:54 , Processed in 1.077153 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表