Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)
'=MyXLookup(찾을값, 찾을범위, 출력범위)
 
' 변수 선언
' i = 찾을범위 반복할 순번
Dim i As Long
 
' 찾을범위의 시작부터 끝까지 돌아가면서
For i = 1 To lookup_range.Rows.Count
    '찾을범위의 i번째 값이 찾을값과 동일하면
    '※힌트 : If ○○○.Cells(○).value = ○○ Then ... End If
 
        'MyXLookup 함수의 결과값으로 반환범위의 i번째 값을 출력한 후 명령문을 강제로 종료한다.
        '※힌트 : MyXLookup = ○○○.Cells(○).Value
        '※힌트 : Exit Function
Next
 
End Function