Excel - pomoc

[ksviper]

Witam,
mam problem ze skonstruowaniem formuły w Excelu i Calc.
Mam tabelę:

Lp.|Nazwisko   |Nr grupy
------------------------
 1.|Nowak      |1
 2.|Kowalski   |2
 3.|Wiśniewski |3
 4.|Dąbrowski  |1
 5.|Lewandowski|3
 6.|Wójcik     |2
 7.|Kamiński   |2
 8.|Kowalczyk  |1
 9.|Zieliński  |3
10.|Szymański  |4

Chciałbym teraz utworzyć formułę, która do komórki wpisze mi wszystkie nazwiska z danej grupy:

Nr grupy|Osoby
-----------------------------------------
       1|Nowak Dąbrowski Kowalczyk
       2|Kowalski Wójcik Kamiński
       3|Wiśniewski Lewandowski Zieliński
       4|Szymański

Nazwisk jest dość sporo, nie ma na ich ilość limitu, podobnie z grupami.
Próbowałem z funkcjami Złącz.teksty i Jeżeli ale formuły są ogromne. W Excelu jeszcze dają radę ale Calc ma ograniczenie do 512 operatorów, nawiasów itp i dość szybko "wymięka".
Ma ktoś na to pomysł?

[seler]

vlookup?

[barracuda]

Może tabela przestawna...

[ropusz]

Wpisz sobie w VBA taką poniższą funkcję. Nie jest moża najbardziej elegancka ale powinna działać

Function cudowna(kom As Double)
Application.Volatile
' tu ustawiasz nr wiersza i nr kolumny zakresu twoich danych, przykładowo jeśli nazwiska z nr grupy masz w zakresie b2:c11 to w1 odpowiada za pierwszy wiersz czyli 2, w2 to ostatni wiersz czyli 11, k1 to pierwsza kolumna czyli 2 a k2 to ostatnia kolumna czyli 3
w1 = 2
w2 = 11
k1 = 2
k2 = 3
n = w2 - w1 + 1
tekst = Null
For i = 1 To n
If Cells(w1 + i - 1, k2) = kom Then tekst = tekst & " " & Cells(w1 + i - 1, k1)
Next i
cudowna = tekst
End Function

W arkuszu wpisujesz gdzieś w jednej kolumnie 1, 2, 3 i 4 i w komórce obok funkcję cudowna wskazującą na dany nr grupy.

[ksviper]

vlookup?

wyszukuje tylko jedną pozycję i chyba tyle

Może tabela przestawna...

nigdy z tego nie korzystałem i nie wiem nawet jak zacząć

Wpisz sobie w VBA taką poniższą funkcję. Nie jest moża najbardziej elegancka ale powinna działać

Function cudowna(kom As Double)
Application.Volatile
' tu ustawiasz nr wiersza i nr kolumny zakresu twoich danych, przykładowo jeśli nazwiska z nr grupy masz w zakresie b2:c11 to w1 odpowiada za pierwszy wiersz czyli 2, w2 to ostatni wiersz czyli 11, k1 to pierwsza kolumna czyli 2 a k2 to ostatnia kolumna czyli 3
w1 = 2
w2 = 11
k1 = 2
k2 = 3
n = w2 - w1 + 1
tekst = Null
For i = 1 To n
If Cells(w1 + i - 1, k2) = kom Then tekst = tekst & " " & Cells(w1 + i - 1, k1)
Next i
cudowna = tekst
End Function

W arkuszu wpisujesz gdzieś w jednej kolumnie 1, 2, 3 i 4 i w komórce obok funkcję cudowna wskazującą na dany nr grupy.

nie chciałem bawić się w VBA bo to ma działać także w OpenOffice. Po otwarciu pliku w OO nie liczy tych funkcji. Ale pod Excelem działa wyśmienicie Sam już miałem napisać sobie taką funkcyjkę ale dobra duszyczka pomogła
Dzięki za pomoc.