字典使用

zhufree · 发表于 2010-10-25 16:17

以下代码中，直接用用变量时不能计算正确结果，而在变量前增加字符可以计算正确结果，不知道哪边出了问题，谢谢
Sub test()

'**********直接变量

Dim dic As Object, arr
Set dic = CreateObject("scripting.dictionary")
For i = 1 To Sheet1.[a65535].End(xlUp).Row
dic(Cells(i, 1)) = dic(Cells(i, 1)) + Cells(i, 2)
Debug.Print Join(dic.keys, ",")
Next
arr = WorksheetFunction.Transpose(dic.keys)
[c1].Resize(UBound(arr), 1) = arr

arr = WorksheetFunction.Transpose(dic.Items)
[d1].Resize(UBound(arr), 1) = arr
Set dic = Nothing

'变量前加字符

Set dic = CreateObject("scripting.dictionary")
For i = 1 To Sheet1.[a65535].End(xlUp).Row
dic("a" & Cells(i, 1)) = dic("a" & Cells(i, 1)) + Cells(i, 2)
Debug.Print Join(dic.keys, ",")
Next
arr = WorksheetFunction.Transpose(dic.keys)
[e1].Resize(UBound(arr), 1) = arr

arr = WorksheetFunction.Transpose(dic.Items)
[f1].Resize(UBound(arr), 1) = arr

End Sub
直接用变量效果　　前面加a字符效果
A01 aA01 12
A01 1 aB02 15
B02 aC03 18
B02 2
C03
C03 3
A01
A01 4
B02
B02 5
C03
C03 6
A01
A01 7
B02
B02 8
C03
C03 9

[ 本帖最后由 zhufree 于 2010-10-25 16:19 编辑 ]

zhufree · 发表于 2010-10-25 16:35

谁可以解答一下，谢谢

hanter007 · 发表于 2010-10-25 16:38

dic(Cells(i, 1)) = dic(Cells(i, 1)) + Cells(i, 2)
须改成
dic(Cells(i, 1).Value) = dic(Cells(i, 1).Value) + Cells(i, 2)
否则变成是添加了RANGE对象.

lipton · 发表于 2010-10-25 16:40

Sub test()
'**********直接变量
Dim arr, dic As Object
Set dic = CreateObject("scripting.dictionary")
dic.RemoveAll
For i = 1 To Sheet1.[a65535].End(xlUp).Row
'如果加 a & Cells(r,c) 同等Cstr(Cells(r,c))
dic(CStr(Cells(i, 1))) = dic(CStr(Cells(i, 1))) + Cells(i, 2) '把单元个数据先强制转换 Cstr()
Debug.Print Join(dic.keys, ",")
Next
arr = WorksheetFunction.Transpose(dic.keys)
[c1].Resize(UBound(arr), 1) = arr
arr = WorksheetFunction.Transpose(dic.Items)
[d1].Resize(UBound(arr), 1) = arr
Set dic = Nothing
End Sub

复制代码

Zamyi · 发表于 2010-10-25 16:44

字典的key可以是除数组外任何数据类型，用cells()作为key，它是作为一个range对象处理，一般可用d(""&cells())或者d(cells().text)、d(cells().value)处理。

声声 · 发表于 2010-10-25 16:50

提示: 作者被禁止或删除内容自动屏蔽

zhufree · 发表于 2010-10-25 16:52

CELLS(,)当作是一数组类型吗？谢谢

lipton · 发表于 2010-10-25 17:00

原帖由 hanter007 于 2010-10-25 16:38 发表
dic(Cells(i, 1)) = dic(Cells(i, 1)) + Cells(i, 2)
须改成
dic(Cells(i, 1).Value) = dic(Cells(i, 1).Value) + Cells(i, 2)
否则变成是添加了RANGE对象.

原帖由Zamyi 发表于 2010-10-25 16:44
字典的key可以是除数组外任何数据类型，用cells()作为key，它是作为一个range对象处理，一般可用d(""&cells())或者d(cells().text)、d(cells().value)处理。

学习了，一直以为用Cstr()函数。

nyakjsc · 发表于 2018-5-9 07:33

学习了，天天学习

		自动登录	找回密码
密码			免费注册

[求助] 字典使用

回复 5楼 Zamyi 的帖子

声声声声当前离线性别保密 UID 1051454 阅读权限 0 注册时间 2010-3-19 在线时间小时最后登录 1970-1-1 积分 81 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2010-10-25 16:50 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报