正序循环修改为倒序循环

天地一相

感谢帮助。详见截图附件。

这样修改了下：

1. Dim a%, b%, c%, n%
   
2. 
   
3.     n = 0
   
4.    
   
5.     For a = 7 To 1 Step -1
   
6.       For b = 8 To a + 1 Step -1
   
7.         For c = 9 To b + 1 Step -1
   
8.             n = n + 1
   
9.             Cells(n, 1) = a
   
10.             Cells(n, 2) = b
    
11.             Cells(n, 3) = c
    
12.           Next
    
13.         Next
    
14.     Next

复制代码

ykcbf1100

单列的话，直接降序排序就行了。3列的话，为了保证效果，加个辅助列吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.5
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 4)
   
4.     brr = arr
   
5.     For i = 1 To UBound(arr)
   
6.         arr(i, 4) = arr(i, 1) & arr(i, 2) & arr(i, 4)
   
7.     Next
   
8.     [a1].Resize(r, 4) = arr
   
9.     Set Rng = [a1].Resize(r, 4)
   
10.     Rng.Sort Cells(1, 4), 2
    
11.     arr = Rng.Value
    
12.     [a1].Resize(r, 4) = brr
    
13.     [d:d] = ""
    
14.     [o1].Resize(r, 3) = arr
    
15. End Sub
    

复制代码

chxw68

1. 
   
2. Sub 倒序()
   
3.     Dim a%, b%, c%, n%
   
4.     n = Application.Combin(9, 3)
   
5.     For a = 1 To 7
   
6.         For b = a + 1 To 8
   
7.             For c = b + 1 To 9
   
8.                 Cells(n, 15) = a
   
9.                 Cells(n, 16) = b
   
10.                 Cells(n, 17) = c
    
11.                 n = n - 1
    
12.             Next
    
13.         Next
    
14.     Next
    
15. End Sub
    
16. 
    
17. 
    
18. 
    

复制代码

chxw68

在楼主代码基础上修改的，仅供参考。

baofa2

天地一相

ykcbf1100 发表于 2024-5-5 08:02
参与一下。。。

谢谢，这样不行。N一旦大了，就比较麻烦了。看我主贴，我尝试那样修改了下，可以实现。我倒着来，是因为N太大，我要同时运行2个VBA，一个正转，一个反转，中点时结束