求高手，数字排列组合

beibeiao

第1位	第2位	第3位	第4位	第5位	第6位
[1，5]	[4，12]	[10，19]	[14，24]	[22，30]	[29，33]

每一位任选一个数字，例如在第1位只可以从1到5任选一个数，第2位只可以从4到12任选一个数，以此类推，填满所有第1到第6位的组合。怎么在excel里显示出来所有的组合？

huang1314wei

1. Sub test()
   
2.     Dim a, b, c, d, e, f
   
3.     Dim brr(1 To 1000000, 1 To 6), n&
   
4.     For a = 1 To 5
   
5.         For b = 4 To 12
   
6.             For c = 10 To 19
   
7.                 For d = 14 To 24
   
8.                     For e = 22 To 30
   
9.                         For f = 29 To 33
   
10.                             n = n + 1
    
11.                             brr(n, 1) = a
    
12.                             brr(n, 2) = b
    
13.                             brr(n, 3) = c
    
14.                             brr(n, 4) = d
    
15.                             brr(n, 5) = e
    
16.                             brr(n, 6) = f
    
17.                         Next f, e, d, c, b, a
    
18.     Range("A3:F1048576").ClearContents
    
19.     Range("A3").Resize(n, 6) = brr
    
20. End Sub

复制代码

beibeiao

huang1314wei 发表于 2018-8-5 14:02

大神，完美解决了，请受我一拜！