엑셀은 문자 추첨을 반복하지 않습니다.

다음과 같이 VBA 코드를 사용합니다 (복권 1- 100 을 설정했습니다, 중복이 없습니다).

하위 CQ ()

범위 (c3:e3). 내용을 지우다

I 를 바이트로 표시

I = 3

T 1:

내가< 6 일 때

Cells(3, i) = "인 경우

세포 (3, i) = 적용. 임의 간격 (1, 100)

만약 ... 끝날거야

I = I+1

고리

만약 적용한다면. 또는 (셀 (3,3) = 셀 (3,4), 셀 (3,3) = 셀 (3,5), 셀 (3,4) = 셀 (3,5)

범위 (c3:e3). 내용을 지우다

T 1

만약 ... 끝날거야

끝단 접합

효과는 다음과 같습니다 (그림에 애니메이션이 없으면 그림을 클릭하십시오)