register313

回復 1# jonn0510

   初學者VBA

1. Columns("A:D").Clear
   
2. R = 1
   
3. For A = 1 To 12
   
4.   For B = A + 1 To 13
   
5.     For C = B + 1 To 14
   
6.       For D = C + 1 To 15
   
7.          Cells(R, 1) = A
   
8.          Cells(R, 2) = B
   
9.          Cells(R, 3) = C
   
10.          Cells(R, 4) = D
    
11.          R = R + 1
    
12.       Next D
    
13.     Next C
    
14.   Next B
    
15. Next A

複製代碼

register313

回復 3# jonn0510
   
A1=2 B1=3 C1=6 D1=8 E1=9 F1=12 G1=15

1. R = 2
   
2. For A = 1 To 4
   
3.   For B = A + 1 To 5
   
4.     For C = B + 1 To 6
   
5.       For D = C + 1 To 7
   
6.          Cells(R, 1) = Cells(1, A)
   
7.          Cells(R, 2) = Cells(1, B)
   
8.          Cells(R, 3) = Cells(1, C)
   
9.          Cells(R, 4) = Cells(1, D)
   
10.          R = R + 1
    
11.       Next D
    
12.     Next C
    
13.   Next B
    
14. Next A

複製代碼