[發問] 請問1~15的數字,每四各數字一組,在不重複狀況下,如何用vba來運用呢?

jonn0510

各位老師請教一下:
1~15的數字,每四各數字一組,在不重複狀況下,如何用vba來運用呢?
A   B   C   D
1   2   3   4
1   3   4   5
1   4   5   6
.....
....
....
12 13 14 15

在不重複的狀況下,一共會有1365組,如果用人工輸入會有誤差,該如何運用vba來處理呢?
謝謝

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

複製代碼

jonn0510

回復 2# register313


TO:register313大大
ok!您的方法可以.感謝指導.

另外可以在請教一下.
同上題
若不是像1~15連續碼,而是不連續的方式呢?
例如: 2 3 6 8 9 12 15  這7各號碼,每四各數字一組,在不重複狀況下,又如何用vba來運用呢?
謝謝

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

複製代碼

jonn0510

回復 4# register313

TO:register313大大
ok!您的方法可行.
感謝您指導.
謝謝您