Як vlookup і повернути кілька значень без дублікатів в Excel? 

Іноді вам може знадобитися vlookup і повернути кілька відповідних значень в одну клітинку одночасно. Але якщо у повернутих клітинках є кілька повторюваних значень, як можна проігнорувати дублікати та зберегти унікальні значення лише при поверненні всіх відповідних значень, як показано на скріншоті, показаному в Excel?

Перегляд і повернення декількох відповідних значень без дублікатів за допомогою користувацької функції

Перегляд і повернення декількох відповідних значень без дублікатів за допомогою користувацької функції

Наступний код VBA може допомогти вам повернути кілька відповідних значень без дублікатів. Будь ласка, зробіть так:

1. Утримуйте клавішу Alt + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Vlookup і повернення декількох унікальних значень, що відповідають:

Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
    Dim xDic As New Dictionary
    Dim xRows As Long
    Dim xStr As String
    Dim i As Long
    On Error Resume Next
    xRows = LookupRange.Rows.Count
    For i = 1 To xRows
        If LookupRange.Columns(1).Cells(i).Value = Lookupvalue Then
            xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, ""
        End If
    Next
    xStr = ""
    MultipleLookupNoRept = xStr
    If xDic.Count > 0 Then
        For i = 0 To xDic.Count - 1
            xStr = xStr & xDic.Keys(i) & ","
        Next
        MultipleLookupNoRept = Left(xStr, Len(xStr) - 1)
    End If
End Function

3. Після вставки коду натисніть Інструменти > посилання у відкритому Microsoft Visual Basic для додатків вікно, а потім, у спливаючому Посилання - VBAProject діалогове вікно, поставте галочку Виконання сценаріїв Microsoft опція в Доступні посилання вікно списку, див. знімок екрана:

4. Потім натисніть OK щоб закрити діалогове вікно, збережіть і закрийте вікно коду, поверніться до аркуша та введіть цю формулу: =MultipleLookupNoRept(E2,A2:C17,3) натисніть у порожню клітинку, де ви хочете вивести результат, натисніть Що натомість? Створіть віртуальну версію себе у ключ, щоб отримати правильний результат, як вам потрібно. Дивіться знімок екрана:

примітки: У наведеній вище формулі, E2 це критерії, які ви хочете переглянути, A2: C17 - це діапазон даних, який ви хочете використовувати, число 3 - номер стовпця, який містить повернені значення.