Andrzej Chrzan informatyk
Tomasz
Gryzio
Dyrektor
zarządzający/Trener/
Konsultant - It
School
=WYSZUKAJ.PIONOWO("*"&D2&"*";$A$2:$B$3;2;0)
Bogdan
Gilarski
www.excelperfect.pl
Perfect And
Practical
пропозиції роботи
=JEŻELI.BŁĄD(INDEKS($B$1:$B$11;MIN.K(JEŻELI(JEŻELI.BŁĄD(SZUKAJ.TEKST("kowalski";$A$2:$A$11);"")<>"";WIERSZ($A$2:$A$11);"");WIERSZ(A1)));"")Po wklejeniu wciśnij F2 (edycja komórki) i zatwierdź Enterem ale trzymaj przy tym wciśnięte klawisze CTRL i Shift (tzw zatwierdzenie tablicowe). Skopiuj w dół, do C11.Gotowe
Andrzej Chrzan informatyk
Bartek
Borczyk
Operator liczb i
słów
Sub sGrupuj()
Dim tbl As Range
Dim i As Integer, j As Integer
Dim strWykladowca As String
Dim fsoWykladowcy As Scripting.Dictionary
Set tbl = Range("A1").CurrentRegion
Set fsoWykladowcy = New Scripting.Dictionary
On Error Resume Next
i = 2
Do Until i > tbl.Rows.Count
strWykladowca = tbl.Columns(2).Cells(i).Value
strWykladowca = Split(strWykladowca, " - ")(2)
If Not fsoWykladowcy.Exists(strWykladowca) Then
fsoWykladowcy.Add strWykladowca, strWykladowca & ": "
End If
fsoWykladowcy.Item(strWykladowca) = fsoWykladowcy.Item(strWykladowca) & tbl.Columns(1).Cells(i) & ";"
i = i + 1
Loop
Range("D1").EntireColumn.ClearContents
For i = 1 To fsoWykladowcy.Count
Range("D1").Offset(i).Value = Left(fsoWykladowcy.Items(i), Len(fsoWykladowcy.Items(i)) - 1)
Next i
End Sub
Andrzej Chrzan informatyk
Bartek B.:
Brakuje pewnej konsekwencji we wprowadzaniu danych, np. nie zawsze trzecia część treści w kolumnie drugiej po rozdzieleniu znakiem " - " daje informację o prowadzącym. Sprawę ułatwiłaby wcześniej przygotowana unikalna lista prowadzących.
Bartek
Borczyk
Operator liczb i
słów
Następna dyskusja:
