[已解决]谢谢阿童木老师，我导出的组合怎么不足五位？

lhj323323

老师：
上传的附件中有写好的程序，感觉应是对的，但是导出的组合却不是五位，不知我错在什么地方了

最佳答案

月排行榜 / 总排行榜

amulee

2011-5-25 15:46

不够仔细，数组定义错误

1. Sub 组合6()
   
2.   Dim i&, j&, k&, l&, m&, Ar1, Ar2, Ar3, Ar4, Ar5, Arr1(), r&
   
3.   Dim Myr%
   
4. Application.ScreenUpdating = False
   
5. '========根据用户对百十个位的杀号后的剩余球号进行组合=================
   
6.   Ar1 = Range("i16:i" & [i65536].End(xlUp).Row)
   
7.   Ar2 = Range("j16:j" & [j65536].End(xlUp).Row)
   
8.   Ar3 = Range("k16:k" & [k65536].End(xlUp).Row)
   
9.   Ar4 = Range("l16:l" & [l65536].End(xlUp).Row)
   
10.   Ar5 = Range("m16:m" & [m65536].End(xlUp).Row)
    
11. 
    
12. For i = 1 To UBound(Ar1)
    
13.     For j = 1 To UBound(Ar2)
    
14.         For k = 1 To UBound(Ar3)
    
15.             For l = 1 To UBound(Ar4)
    
16.                 For m = 1 To UBound(Ar5)
    
17.                     r = r + 1
    
18.                     '===========导入单列结果=====ok
    
19.                     ReDim Preserve Arr1(1 To r)
    
20.                     Arr1(r) = Ar1(i, 1) & " " & Ar2(j, 1) & " " & Ar3(k, 1) & " " & Ar4(l, 1) & " " & Ar5(m, 1)
    
21.                 Next
    
22.             Next
    
23.         Next
    
24.     Next
    
25. Next
    
26. Stop
    
27. Sheet2.Range("g2:g" & Sheet2.[g65536].End(3).Row).ClearContents
    
28. Sheet2.[g2].Resize(r, 1) = Application.Transpose(Arr1) '导出单列
    
29. Sheet2.[g1] = Array("排五组合")
    
30. Erase Arr1 '清空数组
    
31. Erase Ar1
    
32. Erase Ar2
    
33. Erase Ar3
    
34. Erase Ar4
    
35. Erase Ar5
    
36. Application.ScreenUpdating = True
    
37. Sheet2.Activate
    
38. End Sub

复制代码

跳转到最佳答案楼层

amulee

不够仔细，数组定义错误

1. Sub 组合6()
   
2.   Dim i&, j&, k&, l&, m&, Ar1, Ar2, Ar3, Ar4, Ar5, Arr1(), r&
   
3.   Dim Myr%
   
4. Application.ScreenUpdating = False
   
5. '========根据用户对百十个位的杀号后的剩余球号进行组合=================
   
6.   Ar1 = Range("i16:i" & [i65536].End(xlUp).Row)
   
7.   Ar2 = Range("j16:j" & [j65536].End(xlUp).Row)
   
8.   Ar3 = Range("k16:k" & [k65536].End(xlUp).Row)
   
9.   Ar4 = Range("l16:l" & [l65536].End(xlUp).Row)
   
10.   Ar5 = Range("m16:m" & [m65536].End(xlUp).Row)
    
11. 
    
12. For i = 1 To UBound(Ar1)
    
13.     For j = 1 To UBound(Ar2)
    
14.         For k = 1 To UBound(Ar3)
    
15.             For l = 1 To UBound(Ar4)
    
16.                 For m = 1 To UBound(Ar5)
    
17.                     r = r + 1
    
18.                     '===========导入单列结果=====ok
    
19.                     ReDim Preserve Arr1(1 To r)
    
20.                     Arr1(r) = Ar1(i, 1) & " " & Ar2(j, 1) & " " & Ar3(k, 1) & " " & Ar4(l, 1) & " " & Ar5(m, 1)
    
21.                 Next
    
22.             Next
    
23.         Next
    
24.     Next
    
25. Next
    
26. Stop
    
27. Sheet2.Range("g2:g" & Sheet2.[g65536].End(3).Row).ClearContents
    
28. Sheet2.[g2].Resize(r, 1) = Application.Transpose(Arr1) '导出单列
    
29. Sheet2.[g1] = Array("排五组合")
    
30. Erase Arr1 '清空数组
    
31. Erase Ar1
    
32. Erase Ar2
    
33. Erase Ar3
    
34. Erase Ar4
    
35. Erase Ar5
    
36. Application.ScreenUpdating = True
    
37. Sheet2.Activate
    
38. End Sub

复制代码