'ID_Gender(주민번호)
Function ID_Gender(ID)

ID_Gender = WorksheetFunction.IsOdd(Mid(ID, 8, 1))

If ID_Gender = True Then
ID_Gender = "남자"
Else
ID_Gender = "여자"
End If

End Function

'FindGender 함수
Function FindGender(Name)

FindGender = WorksheetFunction.VLookup(Name, Range("B2:C24"), 2, 0)

 

End Function