표의 5 격자 난수 범위는 동일하지만 반복할 수 없습니다.

다음 코드는 A 1-A5 셀에서 반복되지 않는 5 개의 난수를 생성합니다.

부사장관 ()

Dim d 를 객체로 사용

Set d = CreateObject ("스크립트. 사전) 을 참조하십시오

사전 초기화

I= 1 ~ 5 의 경우

불규칙하게 만들다

Rd = Int((20 * Rnd)+10)

없는 경우 셀 (I, 1)=rd

연구 개발) = ""

그리고 나서

끝단 접합