로또 전체조합 (8,145,060조합)을 만들어 보자

엑셀을 이용하여 로또 전체조합 (814만 조합)을 만들어 보자...

 

 

엑셀 쉬트에서

	A	B	C	D	E	F
1
2

 

A1 란에 1, B1 란에 2, 하단의 십자바를 잡고 오른쪽으로 F1까지 드래그 하면 아래와 같이 된다.

 

	A	B	C	D	E	F
1	1	2	3	4	5	6
2

 

이제 A2 부터 F2까지 수식을 넣어주고 모든 수식을 다 넣었다면 십자바를 잡고 아래로 드래그 하면 끝..

 

F2부터 수식을 넣어보자

 

F열은 내려갈때마다 1씩 상승하는데 45 다음에는 E열 보다 1을 올리면 되기때문에 

=if(F1+1<46, F1+1, E2+1)  이렇게 넣으면 되는데...

전체조합을 다 만든 다음에는 더이상 수가 나오지 않도록

 마지막조합이 40, 41, 42, 43, 44, 45조합이 나오면 공백이 되고 또한 A2가 공백일 때도 공백이 되게 수정하면

=if(or(And(A2=40, B2=41, C2=42, D2=43, E2=44, F2=45), ""), A2=""), if(F1+1<46, F1+1, E2+1))

게 된다.

 

E2에도 이런 방식으로 수식을 넣으면 된다.

E2는 44까지만 가능하니까

=if(or(And(A2=40, B2=41, C2=42, D2=43, E2=44, F2=45), ""), A2=""), if(E1+1<45, E1+1, D2+1))

게 하면 된다.

 

D2는

=if(or(And(A2=40, B2=41, C2=42, D2=43, E2=44, F2=45), ""), A2=""), if(D1+1<45, D1+1, C2+1))

 

C2는

=if(or(And(A2=40, B2=41, C2=42, D2=43, E2=44, F2=45), ""), A2=""), if(C1+1<45, C1+1, B2+1))

 

B2는

=if(or(And(A2=40, B2=41, C2=42, D2=43, E2=44, F2=45), ""), A2=""), if(B1+1<45, B1+1, A2+1))

 

A2는

=if(or(And(A2=40, B2=41, C2=42, D2=43, E2=44, F2=45), ""), A2=""), if(A1+1<45, A1+1, ""))

 

 

A2 부터 F2까지 범위를 잡고 십자바를 아래로 쭉 드래그 하면 자동으로 산출 완료..

 

10분의 1지점 814506행을 보면

	A	B	C	D	E	F
...	...	...	...	...	...	...
814506	1	12	14	19	31	35

 

아직도 A열은 1이군요.....

 

더이상 귀찮아서 패스....... 

 

 

첨부는 용량초과로 20만행 까지만..  

 

로또전체번호공식_20만.xlsx