Excel VBA 12 Funkcja WYSZUKAJ PIONOWO, która wyciąga wszystkie znalezione wartości

Zobacz kurs wideo Mistrz Excela

Funkcja WYSZUKAJ.PIONOWO zwraca tylko pierwszy znaleziony element i nie szuka już innych, a czasami chcesz, żeby znaleźć wszystkie elementy spełniające warunek.

Żeby to osiągnąć możesz napisać funkcję w VBA, która będzie wyszukiwała wszystkich elementów korespondujących z szukaną wartością.

Function WyszukajWszystkie(Szukana As String, Zakres As Range, NrKolumny As Integer) As String
Dim i As Integer

For i = 1 To Zakres.Rows.Count
If Zakres.Cells(i, 1) = Szukana Then
WyszukajWszystkie = WyszukajWszystkie & Zakres.Cells(i, NrKolumny) & ", "
End If
Next i

WyszukajWszystkie = Left(WyszukajWszystkie, Len(WyszukajWszystkie) - 2)

End Function

Opiera się o formuły:

Pliki do pobrania na stronie: