VB(A)

2중 VLOOKUP

당근쨈 2015. 5. 15. 20:08

'다4' 라는 값을 이용해

왼쪽 표에서 다 → 4 → N 을 찾아가는 사용자 함수

1. 다4 를 반으로 쪼개 '다'와 '4'로 나눈다.

2. '다'를 왼쪽표에서 찾아 오른쪽 1,2,3,4,5의 범위를 설정한다.

3. '4'를 이용해 '다' 중에서 '4'를 찾아 N을 가져온다.


Function vLook(rngValue As Range) As String
 
    Dim strFir As String
    Dim intSec As Integer
    Dim rngFir As Range
    Dim rngData As Range
    Dim rngLast As Range
    
    '한글과 숫자를 분리
    With rngValue
        strFir = Left(.Value, 1)
        intSec = Right(.Value, 1)
    End With
    
    'A열에서 한글값을 찾아서 오른쪽의 숫자 영역을 찾음
    Set rngFir = Columns("A").SpecialCells(2).Find(what:=strFir, lookat:=xlWhole)
    With rngFir
        Set rngData = Range(.Cells, .End(xlDown).Offset(-1)).Offset(, 1)
    End With
    
    '숫자 영역에서 분리된 숫자를 찾아 1열 옆에 있는 값 찾기
    Set rngLast = rngData.Find(what:=intSec, lookat:=xlWhole).Offset(, 1)
    vLook = rngLast
End Function
cs



통합 문서1.xlsm



'VB(A)' 카테고리의 다른 글

다른 엑셀파일의 데이터 가져오기  (2) 2015.05.16
한글로 된 텍스트파일 불러오기  (0) 2015.05.16
그룹으로 내림차순  (0) 2015.05.15
셀 안의 문자열 삭제  (0) 2015.05.03
자동필터를 이용한 데이터 검색  (0) 2015.05.02