potrebno je razdvajanje i nakon toga spajanje podataka. U prvom stupcu (I_polje) su imena osoba, u drugom stupcu (II_polje) različite vrijednosti odvojene delimiterima (;). nije problem razdvojiti te vrijednosti i zasebne stupce (text to table) no nakon toga svaki zapis iz prvog stupca treba se spojiti sa razdvojenim zapisima iz drugog stupca na način da ostane u prvom ali da se dupla koliko je bilo vrijednosti u drugom, znači dva stupca opet. U privitku i problem i kako bi trebalo izgledati rješenje. Znači neki VBA. Unaprijed puno hvala svima na pomoći.
razdvajanje i spajanje podataka
Zaključano
Zakačeno
Vidi jel ti odgovara rješenje u prilogu (korišten pomoćni stupac)
Ma ti si genijalac... hvala
U okviru Get Data (Power Query) već postoji rešenje za ovakav slučaj, pa nije neophodan VBA.
1/ Napravi se query na osnovu postojeće table (range se automatski konvertuje u tabelu)

Potvrditi konvertovanje range tabelu
2/ U Query Editoru označiti kolonu sa separatorima, pa dodati korak Split Column By Delimiter

3/ U dijalogu Split Column by Delimiter aktivirati Advance opcije pa izabrati Spliti into Rows

4/ Ako želiš da izbaciš višak blank na selektovanu kolonu primeni Trim -
5/ Zatvoriti Query Editor Home > Close and Load
Tabela kakvu si hteo biće formirana na posebnom listu (može i na istom ako ti više odgovara)
Ako se početna tabela menja - uraditi refresh konačne tabele.
1/ Napravi se query na osnovu postojeće table (range se automatski konvertuje u tabelu)

Potvrditi konvertovanje range tabelu
2/ U Query Editoru označiti kolonu sa separatorima, pa dodati korak Split Column By Delimiter

3/ U dijalogu Split Column by Delimiter aktivirati Advance opcije pa izabrati Spliti into Rows

4/ Ako želiš da izbaciš višak blank na selektovanu kolonu primeni Trim -
5/ Zatvoriti Query Editor Home > Close and Load
Tabela kakvu si hteo biće formirana na posebnom listu (može i na istom ako ti više odgovara)
Ako se početna tabela menja - uraditi refresh konačne tabele.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Pozdrav Jpeca
Super prijedlog za rješenje. Ja sam se bazirao na formule.
Kad smo već kod mogućih rješenja evo još jedno koristeći 'Pivot Table' (iako je tvoj prijedlog kraći).
U samom startu razdvojiti podatke u zasebne stupce bilo formulom ili Text-To-Columns
1. Pritisnuti Alt+D+P -> označiti "Multiple consolidation ranges" -> 'Next' gumb
2. Na slijedećem dijalog prozoru označiti opciju "I will create Page fields" -> 'Next' gumb
3. Selektirati raspon ćelija -> klik na 'Add' gumb -> 'Next' gumb -> 'New worksheet' -> 'Finish' gumb
4. U 'Pivot Table' koja je kreirana u okviru 'Table Field List', isključiti 'Row' i 'Column' opcije.
5. Na 'Pivot Table' koja je ostala prikazana kliknuti dvoklik mišem na vrijednost (broj)
6. Obrisati stupac 'B'
7. Filtrirati prazne ćelije u novom stupcu 'B' i obrisati ih
8. Prikazati sve redove u 'Pivot Table'
Više detalja i opisa korak po korak u prikačenom primjeru
LP
Super prijedlog za rješenje. Ja sam se bazirao na formule.
Kad smo već kod mogućih rješenja evo još jedno koristeći 'Pivot Table' (iako je tvoj prijedlog kraći).
U samom startu razdvojiti podatke u zasebne stupce bilo formulom ili Text-To-Columns
1. Pritisnuti Alt+D+P -> označiti "Multiple consolidation ranges" -> 'Next' gumb
2. Na slijedećem dijalog prozoru označiti opciju "I will create Page fields" -> 'Next' gumb
3. Selektirati raspon ćelija -> klik na 'Add' gumb -> 'Next' gumb -> 'New worksheet' -> 'Finish' gumb
4. U 'Pivot Table' koja je kreirana u okviru 'Table Field List', isključiti 'Row' i 'Column' opcije.
5. Na 'Pivot Table' koja je ostala prikazana kliknuti dvoklik mišem na vrijednost (broj)
6. Obrisati stupac 'B'
7. Filtrirati prazne ćelije u novom stupcu 'B' i obrisati ih
8. Prikazati sve redove u 'Pivot Table'
Više detalja i opisa korak po korak u prikačenom primjeru
LP
ma vi ste genijalci... što da kažem... nekoliko tisuća zapisa u taj čas... svaka čast
radim sa brojčanim zapisima... i u cijeloj priči gubim vodeću nulu... kako da kod razdvajanja oblikujem kao string ili da dodam ' kako ne bih ostala bez vodeće nule
Da si dala primjer datoteke moglo bi ti se lakše pomoći, ovako mogu samo reći koristi Excel TEXT funkciju
evo primjera
Evo jedan od načina
Ako koristiš Get Data (Power Query) u proceduri koja je prethodno opisana jednostavno izbriši korak Changed Type - ovo je automatski dodat korak - alat pokušava da pogodi tip i olakša ti proceduru, ali ponekad to ne radi.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?