현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - Excel 에서 1-50 에서 10 개의 반복되지 않는 값을 무작위로 추출하여 10 셀로 오름차순으로 반환하는 방법은 무엇입니까?

Excel 에서 1-50 에서 10 개의 반복되지 않는 값을 무작위로 추출하여 10 셀로 오름차순으로 반환하는 방법은 무엇입니까?

매크로 ABC 를 컴파일하고 실행합니다. 매크로 코드:

하위 ABC ()

I = 1 끝 10 의 경우

Cells(i, "A") = Int(Rnd() * 50)+1

내가> 그렇다면 1

J = 1 에서 I-1 까지

셀 (I, "a") = 셀 (j, "a") 인 경우

I = I-1

종료 ...

만약 ... 끝날거야

다음 J.

J = 1 에서 I-1 까지

If 셀 (I, "a") < 세포 (j, "a") 그리고

B = 세포 (I, "a")

셀 (I, "A") = 셀 (j," a ")

셀 (j, "a") = b

만약 ... 끝날거야

다음 J.

만약 ... 끝날거야

다음으로 저는

끝단 접합