엑셀 VBA 4주 완성 특별 스터디 2강 | 본격, 업무 자동화의 시작! -핵심 구문 4가지

XLOOKUP 함수 만들기 보너스 미션

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