[已解决]请教各位帮我看一下代码哪里错了，谢谢

womohe

我把别人的代码加工了一下，没有大的改动，怎么就是运行错误了呢，请教各位大虾 新建 Microsoft Excel 工作表 (16).rar (20.35 KB, 下载次数: 10)

2012-9-7 21:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-9-7 23:07

womohe 发表于 2012-9-7 22:00
大虾能否指出我的代码哪里错了吗？谢谢啦。。。

[c2].Resize(UBound(d1.Keys) + 1, 1) = Application.Transpose(dl.Keys)
这句的错误在于 dl.keys,注意你代码中这里是“dl”，即小写的D和小写的L，而你定义的变量是d1，即小写的D和数字1

[d2].Resize(UBound(d2.Keys) + 1, 1) = Application.Transpose(d2.Keys)
既然把d2定义为字典对象，前面再用[d2]引用单元格就会出现错误。

至于点击按钮出现错误是因为给按钮指定了不存在的宏。

跳转到最佳答案楼层

hwc2ycy

'D:\附件.xls'!caife
按钮指定的宏不对。

hwc2ycy

r 新建 Microsoft Excel 工作表 (16).rar (21.55 KB, 下载次数: 2)

2012-9-7 21:19 上传

点击文件名下载附件

hwc2ycy

过程名光有C不行，可用D没问题，看看高手的答案。

womohe

1. Sub caifen()
   
2. Dim Myr&, Arr, x&
   
3. Dim d, d1, d2, i&, j&
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Set d1 = CreateObject("Scripting.Dictionary")
   
6. Set d2 = CreateObject("Scripting.Dictionary")
   
7. Myr = [a65536].End(xlUp).Row
   
8. Arr = Range("a2:a" & Myr)
   
9. Range("c2:e" & Myr).ClearContents
   
10. my = Array("MOTO", "诺基亚", "三星", "索爱")
    
11. gc = Array("OPPO", "联想", "天语", "金立", "步步高", "波导", "TCL", "酷派")
    
12. For x = 1 To UBound(Arr)
    
13.     For i = 0 To UBound(my)
    
14.         If InStr(Arr(x, 1), my(i)) > 0 Then
    
15.             d(Arr(x, 1)) = ""
    
16.             GoTo 100
    
17.         End If
    
18.     Next i
    
19.     For j = 0 To UBound(gc)
    
20.         If InStr(Arr(x, 1), gc(j)) > 0 Then
    
21.             d1(Arr(x, 1)) = ""
    
22.             GoTo 100
    
23.         End If
    
24.     Next j
    
25.     d2(Arr(x, 1)) = ""
    
26. 100:
    
27. Next x
    
28. Range("c2").Resize(UBound(d.Keys) + 1, 1) = Application.Transpose(d.Keys)
    
29. Range("d2").Resize(UBound(d1.Keys) + 1, 1) = Application.Transpose(d1.Keys)
    
30. Range("e2").Resize(UBound(d2.Keys) + 1, 1) = Application.Transpose(d2.Keys)
    
31. End Sub

复制代码

womohe

百思不得其解。。。{:31:}

hwc2ycy

重新插一个按钮也成。

柳如烟

1. Sub c()
   
2. Dim x%, Arr, i%, j%
   
3. Dim d1, d2, d3
   
4. Set d1 = CreateObject("scripting.dictionary")
   
5. Set d2 = CreateObject("scripting.dictionary")
   
6. Set d3 = CreateObject("scripting.dictionary")
   
7. Arr = [a1].CurrentRegion
   
8. array1 = Array("MOTO", "诺基亚", "三星", "索爱")
   
9. array2 = Array("OPPO", "联想", "天语", "金立", "步步高", "波导", "TCL", "酷派")
   
10. For x = 2 To UBound(Arr)
    
11.      For i = 0 To UBound(array1)
    
12.         If InStr(Arr(x, 1), array1(i)) > 0 Then
    
13.         d1(Arr(x, 1)) = ""
    
14.         GoTo 100
    
15.         End If
    
16.     Next i
    
17.      For j = 0 To UBound(array2)
    
18.          If InStr(Arr(x, 1), array2(j)) > 0 Then
    
19.          d2(Arr(x, 1)) = ""
    
20.          GoTo 100
    
21.       End If
    
22.     Next j
    
23.      d3(Arr(x, 1)) = ""
    
24. 100:
    
25. Next x
    
26. Range("c2").Resize(d1.Count1) = Application.Transpose(d1.keys)
    
27. Range("d2").Resize(d2.Count) = Application.Transpose(d2.keys)
    
28. Range("e2").Resize(d3.Count) = Application.Transpose(d3.keys)
    
29. End Sub

复制代码

5201314

1. Sub test()
   
2.     Dim x As Integer, Arr, i As Integer, j As Integer
   
3.     Dim dic1 As Object, dic2 As Object, dic3 As Object
   
4.     Set dic1 = CreateObject("scripting.dictionary")
   
5.     Set dic2 = CreateObject("scripting.dictionary")
   
6.     Set dic3 = CreateObject("scripting.dictionary")
   
7.     Arr = Range("A1").CurrentRegion
   
8.     array1 = Array("MOTO", "诺基亚", "三星", "索爱")
   
9.     array2 = Array("OPPO", "联想", "天语", "金立", "步步高", "波导", "TCL", "酷派")
   
10.     For x = 2 To UBound(Arr)
    
11.         For i = 0 To UBound(array1)
    
12.             If InStr(Arr(x, 1), array1(i)) > 0 Then
    
13.                 dic1(Arr(x, 1)) = ""
    
14.                 GoTo 100
    
15.             End If
    
16.         Next
    
17.         For j = 0 To UBound(array2)
    
18.             If InStr(Arr(x, 1), array2(j)) > 0 Then
    
19.                 dic2(Arr(x, 1)) = ""
    
20.                 GoTo 100
    
21.             End If
    
22.         Next
    
23.         dic3(Arr(x, 1)) = ""
    
24. 100:
    
25.     Next
    
26.     If dic1.Count > 1 Then Range("C2").Resize(dic1.Count, 1) = Application.Transpose(dic1.Keys)
    
27.     If dic2.Count > 1 Then Range("D2").Resize(dic2.Count, 1) = Application.Transpose(dic2.Keys)
    
28.     If dic3.Count > 1 Then Range("E2").Resize(dic3.Count, 1) = Application.Transpose(dic3.Keys)
    
29. End Sub

复制代码

womohe

hwc2ycy 发表于 2012-9-7 21:35
重新插一个按钮也成。

我没用那个按钮哇，我是直接运行的{:18:}