字典使用

zhufree

以下代码中，直接用用变量时不能计算正确结果，而在变量前增加字符可以计算正确结果，不知道哪边出了问题，谢谢
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

谁可以解答一下，谢谢

hanter007

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

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

复制代码

Zamyi

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

zhufree

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

lipton

原帖由 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

学习了，天天学习