當前位置:商標查詢大全網 - 彩票查詢 - 大神用VBA找壹個表10,選8,找到所有不重復的數組。

大神用VBA找壹個表10,選8,找到所有不重復的數組。

45組數據是:

1 2 3 4 5 6 7 8

1 2 3 4 5 6 7 9

1 2 3 4 5 6 7 10

1 2 3 4 5 6 8 9

1 2 3 4 5 6 8 10

1 2 3 4 5 6 9 10

1 2 3 4 5 7 8 9

1 2 3 4 5 7 8 10

1 2 3 4 5 7 9 10

1 2 3 4 5 8 9 10

1 2 3 4 6 7 8 9

1 2 3 4 6 7 8 10

1 2 3 4 6 7 9 10

1 2 3 4 6 8 9 10

1 2 3 4 7 8 9 10

1 2 3 5 6 7 8 9

1 2 3 5 6 7 8 10

1 2 3 5 6 7 9 10

1 2 3 5 6 8 9 10

1 2 3 5 7 8 9 10

1 2 3 6 7 8 9 10

1 2 4 5 6 7 8 9

1 2 4 5 6 7 8 10

1 2 4 5 6 7 9 10

1 2 4 5 6 8 9 10

1 2 4 5 7 8 9 10

1 2 4 6 7 8 9 10

1 2 5 6 7 8 9 10

1 3 4 5 6 7 8 9

1 3 4 5 6 7 8 10

1 3 4 5 6 7 9 10

1 3 4 5 6 8 9 10

1 3 4 5 7 8 9 10

1 3 4 6 7 8 9 10

1 3 5 6 7 8 9 10

1 4 5 6 7 8 9 10

2 3 4 5 6 7 8 9

2 3 4 5 6 7 8 10

2 3 4 5 6 7 9 10

2 3 4 5 6 8 9 10

2 3 4 5 7 8 9 10

2 3 4 6 7 8 9 10

2 3 5 6 7 8 9 10

2 4 5 6 7 8 9 10

3 4 5 6 7 8 9 10

VBA電碼計劃:

選項顯式

子組合10選8()

昏暗的i & amp,I 1 & amp;i2 & amp,i3 & amp,i4 & amp,i5 & amp,i6 & amp、i7 & amp,i8 & amp

對於i1 = 1到3

對於I2 = I 1+0到4

對於i3 = i2 + 1到5

對於i4 = i3 + 1到6

對於i5 = i4 + 1到7

對於i6 = i5 + 1到8

對於i7 = i6 + 1到9

對於i8 = i7 + 1到10

i = i + 1

Cells(i,1)= I 1 & amp;”& ampi2 & amp”& ampi3 & amp”& ampi4 & amp”& ampi5 & amp”& ampi6 & amp”& ampi7 & amp”& ampi8

接下來i8,i7,i6,i5,i4,i3,i2,i1

末端接頭