Excel'de bir değeri arayarak birden fazla karşılık gelen değeri nasıl döndürebilirim?
Bu öğretici, aşağıda ekran görüntülerinde gösterildiği gibi Excel'de bir değeri arayarak birden fazla karşılık gelen değeri döndürmeyi anlatmaktadır:
Dizi formülü ile birden fazla karşılık gelen değeri döndürme
Filtre ile birden fazla karşılık gelen değeri döndürme
Tanımlı Fonksiyon ile birden fazla karşılık gelen değeri döndürme
Dizi formülü ile birden fazla karşılık gelen değeri döndürme
İşte uzun bir dizi formülü, bir değeri aramak ve birden fazla karşılık gelen değeri döndürmek için yardımcı olabilir.
1. Aramak istediğiniz değeri boş bir hücreye girin. Ekran görüntüsüne bakın:
2. Bitişik hücreye şu formülü yazın: =EĞER(HATAOLUŞTU(MİNDEX($A$1:$B$7,KÜÇÜK(EĞER($A$1:$A$7=$D$4,SATIR($A$1:$A$7)),SATIR(1:1)),2)),"",
MİNDEX($A$1:$B$7,KÜÇÜK(EĞER($A$1:$A$7=$D$4,SATIR($A$1:$A$7)),SATIR(1:1)),2)) ve ardından Shift + Ctrl + Enter tuşlarına birlikte basın, sonra Otomatik Doldurma yardımıyla hücreleri ilk boş hücreye kadar aşağı doğru doldurun. Ekran görüntüsüne bakın:
Not: Yukarıdaki formülde $A$1:$B$7 veri aralığını, $A$1:$A$7 ise belirli bir değeri aradığınız sütun aralığını temsil eder, $D$4 1. adımda arama değerini girdiğiniz hücreyi ifade eder, 2 ise ikinci sütunda karşılık gelen değerleri bulmayı belirtir.
Filtre ile birden fazla karşılık gelen değeri döndürme
Excel'de aynı sorunu çözmek için Filtre özelliğini de kullanabilirsiniz.
1. Arama yapmak istediğiniz sütun aralığını seçin ve tıklayın Veri > Filtre. Ekran görüntüsüne bakın:
2. Ardından seçtiğiniz aralığın ilk hücresindeki ok düğmesine tıklayın ve açılır listede yalnızca aramak istediğiniz değeri işaretleyin. Ekran görüntüsüne bakın:
3. Tamam'a tıklayın, şimdi yalnızca arama değeri ve onun karşılık gelen değerlerinin filtrelendiğini göreceksiniz.
Tanımlı Fonksiyon ile birden fazla karşılık gelen değeri döndürme
Eğer Tanımlı Fonksiyon ilginizi çekiyorsa, bu sorunu Tanımlı Fonksiyon ile de çözebilirsiniz.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic For Applications penceresini açın.
2. Modül > Ekle'ye tıklayarak bir Modül penceresi açın ve aşağıdaki VBA'yı pencereye kopyalayın.
VBA: Bir değeri arayarak birden fazla karşılık gelen değeri döndürme.
Function MyVlookup(pWorkRng As Range, pRng As Range, pColumnIndex As Integer, Optional pType As String = "v")
'Updateby20140827
Dim xRow As Single
Dim xCol As Single
Dim arr() As Variant
ReDim arr(0)
For i = 1 To pRng.Rows.Count
If pWorkRng = pRng.Cells(i, 1) Then
arr(UBound(arr)) = pRng.Cells(i, pColumnIndex)
ReDim Preserve arr(UBound(arr) + 1)
End If
Next
If pType = "h" Then
xCol = Range(Application.Caller.Address).Columns.Count
For i = UBound(arr) To xCol
arr(UBound(arr)) = ""
ReDim Preserve arr(UBound(arr) + 1)
Next
ReDim Preserve arr(UBound(arr) - 1)
MyVlookup = arr
Else
xRow = Range(Application.Caller.Address).Rows.Count
For i = UBound(arr) To xRow
arr(UBound(arr)) = ""
ReDim Preserve arr(UBound(arr) + 1)
Next
ReDim Preserve arr(UBound(arr) - 1)
MyVlookup = Application.WorksheetFunction.Transpose(arr)
End If
End Function
3. Pencereyi kapatın ve bir hücreye şu formülü yazın =MyVlookup(A10,$A$2:$B$7,2) ( A10 arama değerini, $A$2:$B$7 veri aralığını, 2 sütun indeks numarasını ifade eder). Ve Shift + Ctrl + Enter tuşlarına basın. Ardından dolgu tutamacını hücreler boyunca aşağı çekin, imleci Formül Çubuğu(F)'na yerleştirin ve tekrar Shift + Ctrl + Enter tuşlarına basın.
İpucu: Eğer yatay hücrelerde değerleri döndürmek istiyorsanız, şu formülü yazabilirsiniz =MyVlookup(A10, $A$2:$B$7, 2, "h").
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin