[已解决]d1.exists(dc)字典中keys不重复在这里运用错误是怎么回事？

nancy66317

我需要将A列中单据号，如果B列有，就作色，先是利用KEY不重复，提取单取号，再利用KEY不重复，如果存在，则作色？怎么不正确呢？ 记号.rar (12.7 KB, 下载次数: 8)

2015-3-21 22:10 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-22 07:45

1. Sub 记号()
   
2. Dim d, i&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. [a:a].Interior.ColorIndex = xlNone
   
5. n = Range("a65536").End(xlUp).Row
   
6. With CreateObject("VBscript.regexp")
   
7.     .Global = True
   
8.     .Pattern = "\d{10}"
   
9.     For i = 2 To n
   
10.         For Each m In .Execute(Cells(i, 2))
    
11.             d("'" & m) = ""
    
12.         Next
    
13.     Next
    
14. End With
    
15. For i = 2 To n
    
16.     If d.exists("'" & Cells(i, 1).Value) Then
    
17.         Cells(i, 1).Interior.ColorIndex = 5
    
18.     End If
    
19. Next
    
20. [d:d] = ""
    
21. [d2].Resize(d.Count) = Application.Transpose(d.keys)
    
22. End Sub

复制代码

跳转到最佳答案楼层

取不好网名

将A列用数据，分列转化为文本

dsmch

1. Sub 记号()
   
2. Dim d, i&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. [a:a].Interior.ColorIndex = xlNone
   
5. n = Range("a65536").End(xlUp).Row
   
6. With CreateObject("VBscript.regexp")
   
7.     .Global = True
   
8.     .Pattern = "\d{10}"
   
9.     For i = 2 To n
   
10.         For Each m In .Execute(Cells(i, 2))
    
11.             d("'" & m) = ""
    
12.         Next
    
13.     Next
    
14. End With
    
15. For i = 2 To n
    
16.     If d.exists("'" & Cells(i, 1).Value) Then
    
17.         Cells(i, 1).Interior.ColorIndex = 5
    
18.     End If
    
19. Next
    
20. [d:d] = ""
    
21. [d2].Resize(d.Count) = Application.Transpose(d.keys)
    
22. End Sub

复制代码