5개 이상 되어있는 데이터들을 중복이되지 않게 섞고 싶습니다.

@베짱이 님 각각의 업체마다 특정인의 코드를 미리 설정해 놓은 다음
[랜덤섞기] 단추를 클릭하여 랜덤섞기 매크로를 실행합니다. 클릭할 때마다 업체별 담당자가 랜덤으로 배치됩니다.

Const Man = 5

Sub 랜덤섞기()

Randomize -Timer

For Each a In Range("I2:I31")
For b = 1 To Man
rSu = Int(Rnd(1) * Man + 1)
t = a.Offset(0, b)
a.Offset(0, b) = a.Offset(0, rSu)
a.Offset(0, rSu) = t
Next
Next

End Sub

댓글채택과 함께... 업무에 적용해 보세요.

첨부파일 : 랜덤섞기예제.xlsm