[已解决]报错，帮我改改，谢谢！！！

fangniuji

这个宏为什么H2到S列空格时，报错，帮我改改，谢谢！！！
ReDim Arr(1 To d.Count, 1 To 2)   这个问题

1. Sub YY()
   
2. 
   
3. Range("t2:u" & Rows.Count).ClearContents
   
4. Dim d As Object, Arr, C&, i&, minx!, j&, x!
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For C = 8 To 19 Step 2
   
7. For i = 2 To Cells(Rows.Count, C).End(3).Row
   
8. j = j + 1
   
9. x = Val(Mid(Cells(i, C), 2))
   
10. If Not d.exists(x) Then
    
11. d(x) = Array(Cells(i, C), Cells(i, C + 1))
    
12. Else
    
13. x = x + j / 100
    
14. d(x) = Array(Cells(i, C), Cells(i, C + 1))
    
15. End If
    
16. Next
    
17. Next
    
18. ReDim Arr(1 To d.Count, 1 To 2)
    
19. For i = 1 To d.Count
    
20. minx = Application.Min(d.keys)
    
21. Arr(i, 1) = d(minx)(0)
    
22. If Len(Arr(i, 1)) = 2 Then
    
23. Arr(i, 1) = "T" & "0" & Right(Arr(i, 1), 1)
    
24. End If
    
25. Arr(i, 2) = d(minx)(1)
    
26. d.Remove (minx)
    
27. Next
    
28. [t2].Resize(i - 1, 2) = Arr
    
29. 
    
30. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-20 11:54

ReDim Arr(1 To d.Count, 1 To 2)
改成

1. if d.count=0 then exit sub
   
2. ReDim Arr(1 To d.Count, 1 To 2)

复制代码

跳转到最佳答案楼层

zjdh

传一个空表，与没有附件有啥区别？？！！

fangniuji

zjdh 发表于 2012-12-20 10:50
传一个空表，与没有附件有啥区别？？！！

点一下，就知道报错原因，谢谢！！！

fangniuji

zjdh 发表于 2012-12-20 10:50
传一个空表，与没有附件有啥区别？？！！

ReDim Arr(1 To d.Count, 1 To 2)   这个问题

hvail

fangniuji 发表于 2012-12-20 10:54
ReDim Arr(1 To d.Count, 1 To 2)   这个问题

感觉像是空字典，

hwc2ycy

估计那会d.count为0了吧。

hwc2ycy

ReDim Arr(1 To d.Count, 1 To 2)
改成

1. if d.count=0 then exit sub
   
2. ReDim Arr(1 To d.Count, 1 To 2)

复制代码