[已解决]请查找类型不匹配错误

ymq123

请查找类型不匹配错误。谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-2 13:22

1. Private Sub 组合_Click()
   
2.    
   
3.     Dim sh As Worksheet
   
4.     Set sh = Sheets("1")
   
5.     Dim Arr, s(), r%, i&, j&, i1&, i2&, i3&, i4&, i5&, x$
   
6.     Dim d, k, Brr
   
7.     Set d = CreateObject("Scripting.Dictionary")
   
8.     Arr = sh.Range("a1:j20")
   
9.     Debug.Print sh.Range("a1:j20").Address(False, False)
   
10.     For i = 1 To UBound(Arr)
    
11.         For j = 1 To UBound(Arr, 2)
    
12.             If Arr(i, j) <> "" Then
    
13.                 r = r + 1
    
14.                 ReDim Preserve s(1 To r)
    
15.                 s(r) = Arr(i, j)
    
16.             End If
    
17.         Next
    
18.         If r >= 5 Then
    
19.             For i1 = 1 To r - 4
    
20.                 For i2 = i1 + 1 To r - 3
    
21.                     For i3 = i2 + 1 To r - 2
    
22.                         For i4 = i3 + 1 To r - 1
    
23.                             For i5 = i4 + 1 To r
    
24.                                 x = s(i1) & "," & s(i2) & "," & s(i3) & "," & s(i4) & "," & s(i5)
    
25.                                 d(x) = ""
    
26.                             Next
    
27.                         Next
    
28.                     Next
    
29.                 Next
    
30.             Next
    
31.         End If
    
32.         r = 0
    
33.     Next
    
34.     k = d.keys
    
35.     ReDim Brr(1 To d.Count, 1 To 10)
    
36.     For i = 0 To UBound(k)
    
37.         aa = Split(Replace(Replace(k(i), ", ", ""), " ,", ""), ",")
    
38. 
    
39.         For j = 0 To UBound(aa)
    
40.             Brr(i + 1, aa(j)) = aa(j)
    
41.         Next
    
42.     Next
    
43.     Range("a1").Resize(UBound(Brr), 10) = Brr
    
44.     d.RemoveAll
    
45. 
    
46. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

直接在出错的时候点调试，看看本地窗口，估计又是对空对像操作了。

hwc2ycy

hwc2ycy

1. Private Sub 组合_Click()
   
2.    
   
3.     Dim sh As Worksheet
   
4.     Set sh = Sheets("1")
   
5.     Dim Arr, s(), r%, i&, j&, i1&, i2&, i3&, i4&, i5&, x$
   
6.     Dim d, k, Brr
   
7.     Set d = CreateObject("Scripting.Dictionary")
   
8.     Arr = sh.Range("a1:j20")
   
9.     Debug.Print sh.Range("a1:j20").Address(False, False)
   
10.     For i = 1 To UBound(Arr)
    
11.         For j = 1 To UBound(Arr, 2)
    
12.             If Arr(i, j) <> "" Then
    
13.                 r = r + 1
    
14.                 ReDim Preserve s(1 To r)
    
15.                 s(r) = Arr(i, j)
    
16.             End If
    
17.         Next
    
18.         If r >= 5 Then
    
19.             For i1 = 1 To r - 4
    
20.                 For i2 = i1 + 1 To r - 3
    
21.                     For i3 = i2 + 1 To r - 2
    
22.                         For i4 = i3 + 1 To r - 1
    
23.                             For i5 = i4 + 1 To r
    
24.                                 x = s(i1) & "," & s(i2) & "," & s(i3) & "," & s(i4) & "," & s(i5)
    
25.                                 d(x) = ""
    
26.                             Next
    
27.                         Next
    
28.                     Next
    
29.                 Next
    
30.             Next
    
31.         End If
    
32.         r = 0
    
33.     Next
    
34.     k = d.keys
    
35.     ReDim Brr(1 To d.Count, 1 To 10)
    
36.     For i = 0 To UBound(k)
    
37.         aa = Split(Replace(Replace(k(i), ", ", ""), " ,", ""), ",")
    
38. 
    
39.         For j = 0 To UBound(aa)
    
40.             Brr(i + 1, aa(j)) = aa(j)
    
41.         Next
    
42.     Next
    
43.     Range("a1").Resize(UBound(Brr), 10) = Brr
    
44.     d.RemoveAll
    
45. 
    
46. End Sub
    

复制代码

hwc2ycy

组合的结果楼主自己验证下。

hwc2ycy

63行开始的，J列有10这个数据。

hwc2ycy

aa(j)，原来是这里的原因，aa(j)相当于是索引了。

ymq123

hwc2ycy 发表于 2013-4-2 13:22

当aa(J)<>""时，类型匹配了，但是，组合后每行数字分别是从1到5个，而我要求每行数字只有5个。请老师帮忙再修改一次。谢谢！

hwc2ycy

aa(j)用这个做下标就不对了嘛，你里面有数字10的情况，不就索引成了第10列的数据了。

ymq123

hwc2ycy 发表于 2013-4-2 16:52
aa(j)用这个做下标就不对了嘛，你里面有数字10的情况，不就索引成了第10列的数据了。

老师你好，麻烦你把这题代码重新编写，组合后使每行数字都是5个。谢谢！