5列数据的排列组合，烦请各位指教！

izual22

各位大神好，

小弟现在遇到一个问题，现在想做5列数据的排列组合，参照此方法：

3列数据的排列组合

代码如下：

Sub 排列组合()
    i = 1
    x = 1
    Do While Cells(i, 1) <> ""
        j = 1
        Do While Cells(j, 2) <> ""
            k = 1
            Do While Cells(k, 3) <> ""
            
                Cells(x, 4) = Cells(i, 1) + Cells(j, 2) + Cells(k, 3)
                x = x + 1
                k = k + 1
            Loop
            j = j + 1
        Loop
        i = i + 1
    Loop
End Sub

这个方法只能三列数据排列组合，不知道如何扩展至5列？烦请各位大神帮忙指教！多谢！！

izual22

补充

coolall

1. 
   
2. 
   
3. Sub 排列组合()
   
4. 
   
5.   x = 1
   
6.   i = 1
   
7.   Do While Cells(i, 1) <> ""
   
8.   j = 1
   
9.   Do While Cells(j, 2) <> ""
   
10.     k = 1
    
11.     Do While Cells(k, 3) <> ""
    
12.         m = 1
    
13.         Do While Cells(m, 4) <> ""
    
14.             n = 1
    
15.             Do While Cells(n, 5) <> ""
    
16.                 Cells(x, 6) = Cells(i, 1) + Cells(j, 2) + Cells(k, 3) + Cells(m, 4) + Cells(n, 5)
    
17.                 x = x + 1
    
18.                 n = n + 1
    
19.             Loop
    
20.         m = m + 1
    
21.       Loop
    
22.       k = k + 1
    
23.     Loop
    
24.     j = j + 1
    
25.   Loop
    
26.   i = i + 1
    
27.   Loop
    
28. End Sub

复制代码

是不是你的需求，请参考

coolall

是不是你的需求，请参考。

izual22

感谢大神！