참고해 보시기 바랍니다.
Sub 추출()
Dim 개수 As Integer
Range("L7:T65536").Clear
On Error GoTo Err
개수 = Application.InputBox("1~5 사이의 숫자를 입력하세요")
If 개수 > 0 And 개수 <= 5 Then
Range("I7:I11").Formula = "=RAND()"
Range("J7:J11").Formula = "=RANK(RC[-1],R7C9:R11C9)"
Range("I7:J11").Value = Range("I7:J11").Value
Range("L7").Resize(개수, 5).Formula = "=INDEX(R7C[-8]:R11C[-8],MATCH(ROW()-6,R7C10:R11C10,0),)"
Range("L7").Resize(개수, 5).Value = Range("L7").Resize(개수, 5).Value
Range("T7").Resize(개수).Formula = "=INDEX(R7C[-15]:R11C[-15],MATCH(ROW()-6,R7C10:R11C10,0),)"
Range("T7").Resize(개수).Value = Range("T7").Resize(개수).Value
Range("I7:J11").ClearContents
End If
Err:
End Sub