[已解决]这代码为什么出现类型不匹配，改改谢谢

fangniuji

1. Sub Ee()
   
2. If Range("a1") = "" Then
   
3. MsgBox "无数据可处理。"
   
4. Exit Sub
   
5. End If
   
6. 
   
7. 
   
8. Dim d As Object, Hx&, Arr
   
9. Set d = CreateObject("Scripting.Dictionary")
   
10. Hx = Range("E200000").End(xlUp).Row
    
11. Arr = Range("E2:E" & Hx).Value '将A列的内容放进数组
    
12. For Hx = 1 To UBound(Arr)
    
13. d(Arr(Hx, 1)) = "" '将A列的内容添加到字典
    
14. Next
    
15. Hx = Range("F200000").End(xlUp).Row
    
16. Arr = Range("F2:F" & Hx).Value '将E列的内容放进数组
    
17. 
    
18. For Hx = 1 To UBound(Arr) '如果E列的内容在字典中存在,就删除该值,否则添加该值
    
19. If d.Exists(Arr(Hx, 1)) Then d.Remove (Arr(Hx, 1)) Else d(Arr(Hx, 1)) = ""
    
20. Next
    
21. [g2].Resize([a200000].End(1).Row, 1).ClearContents
    
22. Range("G2").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
23. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-7 16:51

1. Sub Ee()
   
2.     If Range("a1") = "" Then
   
3.         MsgBox "无数据可处理。"
   
4.         Exit Sub
   
5.     End If
   
6. 
   
7. 
   
8.     Dim d As Object, Hx&, Arr
   
9.     Set d = CreateObject("Scripting.Dictionary")
   
10.     Hx = Range("E200000").End(xlUp).Row
    
11.     Arr = Range("D2:E" & Hx).Value  '将A列的内容放进数组
    
12.     For Hx = 1 To UBound(Arr)
    
13.         d(Arr(Hx, 2)) = ""    '将A列的内容添加到字典
    
14.     Next
    
15.     Hx = Range("F200000").End(xlUp).Row
    
16.     Arr = Range("E2:F" & Hx).Value    '将E列的内容放进数组
    
17.     For Hx = 1 To UBound(Arr)   '如果E列的内容在字典中存在,就删除该值,否则添加该值
    
18.         If d.Exists(Arr(Hx, 2)) Then d.Remove (Arr(Hx, 2)) Else d(Arr(Hx, 2)) = ""
    
19.     Next
    
20.     [g2].Resize([a200000].End(1).Row, 1).ClearContents
    
21.     If d.Count > 0 Then Range("G2").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
22. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

估计字典里没货。

hwc2ycy

原来是数组没货。

hwc2ycy

有时为了避免读入的只是一个单元格的值而非数组时，可以把相领的列一起读入，这样就铁定会是数组了。

hwc2ycy

1. Sub Ee()
   
2.     If Range("a1") = "" Then
   
3.         MsgBox "无数据可处理。"
   
4.         Exit Sub
   
5.     End If
   
6. 
   
7. 
   
8.     Dim d As Object, Hx&, Arr
   
9.     Set d = CreateObject("Scripting.Dictionary")
   
10.     Hx = Range("E200000").End(xlUp).Row
    
11.     Arr = Range("D2:E" & Hx).Value  '将A列的内容放进数组
    
12.     For Hx = 1 To UBound(Arr)
    
13.         d(Arr(Hx, 2)) = ""    '将A列的内容添加到字典
    
14.     Next
    
15.     Hx = Range("F200000").End(xlUp).Row
    
16.     Arr = Range("E2:F" & Hx).Value    '将E列的内容放进数组
    
17.     For Hx = 1 To UBound(Arr)   '如果E列的内容在字典中存在,就删除该值,否则添加该值
    
18.         If d.Exists(Arr(Hx, 2)) Then d.Remove (Arr(Hx, 2)) Else d(Arr(Hx, 2)) = ""
    
19.     Next
    
20.     [g2].Resize([a200000].End(1).Row, 1).ClearContents
    
21.     If d.Count > 0 Then Range("G2").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
22. End Sub
    

复制代码

tianqixueyu

hwc2ycy 发表于 2013-5-7 16:51

老师好，关于这段代码我想问一个问题：字典数据的添加需要像他这样先判断是否存在，存在的删除，不存在的才添加么？我记得字典数据的添加直接把第二个数组添加进去就可以了，字典的KEYS只默认添加不重复的数据的吧？

无聊的疯子

tianqixueyu 发表于 2013-5-8 09:56

老师好，关于这段代码我想问一个问题：字典数据的添加需要像他这样先判断是否存在，存在的删除，不存在的才添加么？我记得字典数据的添加直接把第二个数组添加进去就可以了，字典的KEYS只默认添加不重复的数据

存在你就删除，不存在你就添加

你是要添加还是要删除呢？？
如果只有两个一样的key那不就被你删除了吗？？如果是有4个，那不是让你删除了又添加又删除？？

你不怕累着cpu？？来自: Android客户端

hwc2ycy

直接赋值，没有就会添加，有的就会把对应的ITEM覆盖。