作者：绿色风
分类：
时间：2022-08-17
浏览：144
楼主
水星钓鱼 |
Q:如下图所示：
代码如下：
- Sub Dic()
- Dim oDic As Object
- Dim i As Long
- Set oDic = CreateObject("scripting.dictionary")
- With oDic
- For i = 1 To Range("a1").End(xlDown).Row
- .Add Cells(i, 1), ""
- Next
- End With
- End Sub
为什么单元格内容之间有重复，用字典添加关键字项目对时不出错？
A：因为字典的Key可以是除了数组以外的任何数据类型，包括对象。而以上代码.Add Cells(i,1)其实添加的是单元格对象。而不是每个单元格的值。所以只需修改.Add Cells(i, 1), ""语句为.Add Cells(i, 1).Value, ""即可。
因为Value属性是单元格的默认属性，所以这里产生了这样的错误，误以为.Add Cells(i,1)就是添加单元格的Value值。 |
2楼
xmyjk |
是个小技巧，学习了。 |
3楼
windimi007 |
水星版研究得真够深的呀！
 |
4楼
zhouzhongchi |
老师，修改为.Add Cells(i, 1).Value, ""运行报错
该关键字已经与该集合的一个元素相关联
本人菜鸟，没看懂，求指教！ |
5楼
lslly |
是个小技巧，学习了。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一