Set rng = Sheets("Student List"). range("A2:A31") '학생 목록 영역, 30명의 학생.

Set rng1 = Range("B4:F9") '좌석 수 30석의 좌석 영역.

For i = 0에서 29

TempArray(i) = i

그런 다음

For i = 29에서 0 단계 -1

RndNumber = Int(i * Rnd)

rng1(30 - i) = rng(TempArray(rnd number) + 1)