Excel에서 행운 추첨 이름을 만드는 방법은 무엇입니까?

일상적인 업무에서 때때로 긴 이름 목록에서 임직원을 무작위로 선택하여 행운의 이름으로 지정해야 할 때가 있습니다. Excel에서는 어떻게 임의의 이름을 선택하여 행운의 추첨을 만들 수 있을까요? 이 기사에서는 Excel에서 이 작업을 처리하기 위한 몇 가지 유용한 방법에 대해 설명하겠습니다.

수식을 사용하여 행운의 추첨 이름 추출하기

Kutools for Excel을 사용하여 행운의 추첨 이름 무작위 선택하기

VBA 코드를 사용하여 행운의 추첨 이름 추출하기

수식을 사용하여 행운의 추첨 이름 추출하기

예를 들어, 이름 목록에서 임의로 3개의 이름을 추출하려고 한다면, 다음 긴 수식이 도움이 될 것입니다. 아래 단계를 따라 해 보세요:

결과를 표시할 빈 셀에 다음 수식을 입력하세요: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) , 그리고 필요에 따라 채우기 핸들을 아래로 드래그하세요. 스크린샷을 참조하세요:

참고:

1. 위 수식에서 A2:A16은 무작위로 추출하고자 하는 이름 목록이며, B2는 추출하려는 이름의 개수이고, C2는 수식을 입력할 셀이며, C1은 수식 셀 바로 위의 셀입니다.

2. F9 키를 눌러 다른 새로운 이름 그룹을 무작위로 얻을 수 있습니다.

Kutools for Excel을 사용하여 행운의 추첨 이름 무작위 선택하기

위 두 가지 방법은 대부분의 사람들에게 어려울 수 있습니다. 여기서 Kutools for Excel이 있다면 Sort Range Randomly 기능을 통해 이름을 빠르게 무작위로 선택할 수 있습니다.

Kutools for Excel 설치 후에는 다음과 같이 진행하세요:

1. 무작위로 선택하려는 이름 목록을 선택합니다. 그런 다음 Kutools > 범위 > 정렬, 선택 또는 무작위를 클릭하세요. 스크린샷을 참조하세요:

2. 정렬/선택 범위 무작위 대화 상자에서 선택 탭 아래에 있는 '선택할 셀 수' 텍스트 박스에 선택하려는 이름의 수를 입력하고, 선택 유형 섹션에서 셀을 선택하세요. 스크린샷을 참조하세요:

3. 그런 다음 확인 버튼을 클릭하면 필요한 특정 수의 이름이 선택됩니다. 스크린샷을 참조하세요:

지금 Kutools for Excel 다운로드 및 무료 체험하기 클릭!

VBA 코드를 사용하여 행운의 추첨 이름 추출하기

여기에서는 VBA 코드도 이 작업을 완료하는 데 도움이 될 수 있습니다. 아래 단계를 따라 해 보세요:

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 목록에서 임의의 이름 추출하기:

Public Sub LuckyDraw()
    Dim I, J, xRnd As Long
    Dim xSRg, xDRg As Range
    Dim xDic As New Dictionary
    Dim xnum, xLastRow As Long
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xLastRow = xSRg.Rows.Count
    Set xSRg = xSRg(1)
    Set xDRg = xDRg(1)
    xnum = Range("B2")
    If xnum < 1 Then Exit Sub
    J = 0
    For I = 1 To xnum
LabExit:
        xRnd = Int(Rnd() * xLastRow)
        If xDic.Exists(xRnd) Then GoTo LabExit
        xDic.Add xRnd, ""
        xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
        J = J + 1
    Next
End Sub

참고: 위 코드에서 B2는 추출하려는 이름의 수를 포함하는 셀입니다.

3. 코드를 삽입한 후 열린 Microsoft Visual Basic for Applications 창에서 도구 > 참조를 클릭하고, 나타난 References – VBAProject 대화 상자의 사용 가능한 참조 목록 상자에서 Microsoft Scripting Runtime 옵션을 선택합니다. 스크린샷을 참조하세요:

4. 확인 버튼을 클릭하여 대화 상자를 종료한 후 F5 키를 눌러 이 코드를 실행합니다. 그러면 데이터 목록을 선택하라는 메시지 상자가 나타납니다. 스크린샷을 참조하세요:

5. 확인 버튼을 클릭하면 또 다른 메시지 상자가 나타나 결과를 표시할 셀을 선택하라는 메시지가 표시됩니다. 스크린샷을 참조하세요:

6. 확인을 클릭하면 원하는 수의 이름이 즉시 무작위로 생성됩니다. 스크린샷을 참조하세요: