Hàm myvlookup

Function myVlookUp(lookup_value, lookup_range As Range, index_col As Long)

    Dim x As Range

    Dim result As String

    result = ""

    For Each x In lookup_range

        If x = lookup_value Then

            result = result & "," & x.Offset(0, index_col - 1)

        End If

    Next

    myVlookUp = Right(result, Len(result) - 1)

End Function