중복된 데이터를 VLOOKUP 으로 모두 찾고 싶을 경우

Method Detail

VLOOKUP 으로 검색 시 데이터가 중복된 경우에는 첫번째 값만을 리턴한다.

해결하기 위한 방법으로 사용자 정의 함수를 선언하여 사용한다.

중복된 경우 "," 를 delimiter 로 여러 값을 리턴한다.

문제는 계산하는 시간이 무지막지 걸린다는 거.

Method Source

Function VLOOKUPS(lookup_value As String, table_array As Range, key_col_index_num As Integer, col_index_num As Integer)

    Dim rowNum As Long

    Dim str As String

    With table_array

        rowNum = .Rows.Count

        For i = 1 To rowNum

            If lookup_value = .Cells(i, key_col_index_num).Value Then

                str = str & "," & .Cells(i, col_index_num).Value

            End If

        Next i

    End With

    

    If Len(str) > 0 Then

        str = Right(str, Len(str) - 1)

    End If

    VLOOKUPS = str

End Function

Method Summary

VLOOKUPS(

lookup_value As String  -  검색하려는 문자열

, table_array As Range  -  찾을 범위 배열

, key_col_index_num As Integer  -  검색대상 col 인덱스

, col_index_num As Intege  -  얻으려는 값의 col 인덱스

)