Excel'de kopyalar olmadan birden çok değeri nasıl vlookup ve döndürürüm? 

Bazen, birden çok eşleşen değeri aynı anda tek bir hücreye bakmak ve döndürmek isteyebilirsiniz. Ancak, döndürülen hücrelere doldurulmuş bazı tekrarlanan değerler varsa, Excel'de gösterilen aşağıdaki ekran görüntüsü gibi tüm eşleşen değerleri döndürürken nasıl kopyaları yoksayabilir ve yalnızca benzersiz değerleri koruyabilirsiniz?

Vlookup ve Kullanıcı Tanımlı İşlevini kullanarak yinelemesiz birden çok eşleşen değer döndür

Vlookup ve Kullanıcı Tanımlı İşlevini kullanarak yinelemesiz birden çok eşleşen değer döndür

Aşağıdaki VBA kodu, kopyalar olmadan birden çok eşleşen değeri döndürmenize yardımcı olabilir, lütfen şu şekilde yapın:

1. Basılı tutun Alt + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Vlookup ve birden çok benzersiz eşleşen değer döndür:

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. Kodu ekledikten sonra, ardından Tools > Referanslar açıldığında Uygulamalar için Microsoft Visual Basic pencerede ve ardından dışarıda Referanslar - VBAProject iletişim kutusu, işaretleyin Microsoft Komut Dosyası Çalışma Zamanı seçeneği Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:

4. Sonra tıklayın OK iletişim kutusunu kapatmak, kod penceresini kaydedip kapatmak, çalışma sayfasına geri dönün ve şu formülü girin: =MultipleLookupNoRept(E2,A2:C17,3) sonucun çıktısını almak istediğiniz boş bir hücreye Keşfet İhtiyacınız olan doğru sonucu almak için anahtar. Ekran görüntüsüne bakın:

not: Yukarıdaki formülde, E2 bakmak istediğiniz kriterler, A2: C17 kullanmak istediğiniz veri aralığı, numara 3 döndürülen değerleri içeren sütun numarasıdır.