엑셀 드롭박스 질문입니다...

엑셀에서 Alt + F11 눌러서 VBA 열기
VBA > 삽입 > 모듈 > 소스 붙여넣기

해당 시트에서 드롭박스가 있는 셀을 선택 후
VBA에서 F5키를 누르면 시트2에 리스트가 만들어집니다.

그나저나 저 리스트가 파일 어딘가(JOBTITLE)에 있을텐데 못 찾으셨나 봐요.
이름 정의한 곳으로 이동
https://mainia.tistory.com/5454

소스
=====

Sub Validation()
    Dim strList As String
    Dim MyAr() As String

    On Error Resume Next
    strList = Selection.Validation.Formula1
    If Not strList Then Exit Sub

    If InStr(1, strList, "=") Then
        strList = Replace(strList, "=", "")
        Set rng = Range(strList)
        rng.Copy Sheet2.Range("A1")
    Else
        If InStr(1, strList, ",") Then
            MyAr = Split(strList, ",")
            Sheet2.Range("A1:A" & UBound(MyAr) + 1).Resize.Value = Application.Transpose(MyAr)
        Else
            Sheet2.Range("A1").Value = strList
        End If
    End If
End Sub

그대로 해봤는데 안되네요... 시트2도 안만들어지고..
f5번 누르면 매크로가 뜹니다.
이름 정의한 곳으로 찾아서 이동하는 것도 안보입니다 ㅠ.ㅠ

수식 - 이름관리자에서 JOBTITLE 라고 지정한 참조를 확인해보세요.

음... 말씀하신대로 해봤는데 안보이네요.....ㅠㅠ

두번째 시트가 없으면 임의로 만드셔야 합니다.
소스를 수정해서 해보세요.
드롭박스가 아닌 곳을 선택한 상태에서 F5를 누르면 오류가 발생합니다.
이것도 안된다면 엑셀파일을 봐야 할 것 같네요.

소스
====
Sub Validation()
    Dim strList As String
    Dim MyAr() As String

    strList = Selection.Validation.Formula1

    If InStr(1, strList, "=") Then
        strList = Replace(strList, "=", "")
        Set Rng = Range(strList)
        Rng.Copy Sheet2.Range("A1")
    Else
        If InStr(1, strList, ",") Then
            MyAr = Split(strList, ",")
            Sheet2.Range("A1:A" & UBound(MyAr) + 1).Resize.Value = Application.Transpose(MyAr)
        Else
            Sheet2.Range("A1").Value = strList
        End If
    End If
End Sub

찾아보니 이 인간들이 참조용 시트를 안보이게 숨겨놓았네요.
감사합니다.