常见字典用法集锦及代码详解

1808835746

        优秀作品，学习了

wen8725

跟贴学习，抢占

songfei536

牛，下载学习学习！

jhwang777

又是这位叔叔....

djyang

牛贴如何收藏

内心炙热的丢丢

牛，下载学习学习！

zhzwaz

蓝桥玄霜 发表于 2010-10-18 12:50
实例3  A列中显示1 ~ 1000中被6除余1和余5 的数字
一、问题的提出：
有1、2、3…1000一千个数字，要求编 ...

1. Sub 拆分()
   
2. Dim arr, nRow&
   
3. Dim pp '品牌
   
4. nRow = Range("A" & Rows.Count).End(xlUp).Row
   
5. arr = Range("A" & 2 & ":" & "A" & nRow)
   
6. pp = Array("MOTO", "诺基亚", "三星", "索爱", "OPPO", "联想", "天语", "金立", "步步高", "波导", "TCL", "酷派")
   
7. Dim d As Object
   
8. Set d = CreateObject("Scripting.Dictionary")
   
9. Dim i&, j&
   
10. For i = 1 To UBound(arr) Step 1
    
11.    If arr(i, 1) <> "" Then
    
12. d(arr(i, 1)) = ""
    
13.         For j = 0 To UBound(pp) - 1 Step 1
    
14.             If arr(i, 1) Like "*" & pp(j) & "*" Then
    
15.             Select Case j
    
16.             Case 0, 1, 2, 3
    
17.                 d(arr(i, 1)) = "进口"
    
18.             Case 4, 5, 6, 7, 8, 9, 10, 11
    
19.                 d(arr(i, 1)) = "国产"
    
20.             Case Else
    
21.                 d(arr(i, 1)) = ""
    
22.             End Select
    
23.             End If
    
24.         Next
    
25.    End If
    
26. Next
    
27. Dim t
    
28. For Each t In d.keys
    
29.     Select Case d(t)
    
30.     Case "进口"
    
31.         Cells(Cells(Cells.Rows.Count, 3).End(xlUp).Row + 1, 3) = t
    
32.     Case "国产"
    
33.         Cells(Cells(Cells.Rows.Count, 4).End(xlUp).Row + 1, 4) = t
    
34.     Case ""
    
35.         Cells(Cells(Cells.Rows.Count, 5).End(xlUp).Row + 1, 5) = t
    
36.     End Select
    
37. Next
    
38. End Sub

复制代码

抱着学习的心态，做了习题4.向前辈致敬！

zhzwaz

蓝桥玄霜 发表于 2010-10-18 12:50
实例3  A列中显示1 ~ 1000中被6除余1和余5 的数字
一、问题的提出：
有1、2、3…1000一千个数字，要求编 ...

实例3的用法，很有启发性，谢谢老师。

zhzwaz

蓝桥玄霜 发表于 2010-10-18 12:52
[/code]实例5  前期绑定的字典实例
一、问题的提出：
有多列多行数据，其中有重复的行，要求编写一段代码 ...

这个方法台复杂了，表示学不会。

lixujun100

苦苦寻找了好久的东西，多谢楼主，辛苦了。