• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: přeformátování buňky

Zaslal/a tekIng23 19.3.2021 19:10

ahoj, potřeboval bych poradit prosím :-)

Mám produktová data - jeden ze sloupců obsahuje hodnoty SPECIFIKACE (popis produktu) - v buňkách jsou hodnoty ve formátu "Zalomený text" (v každé buňce je 5 až 15 řádků). Potřebuji jednotlivé řádky v buňce dostat do samostatných buněk nebo jednotlivé řádky spojit do jednoho textu (vzorec spojení - 1.řádek;". ";2.řádek;". ";3.řádek ...... atd.
Nevíte někdo prosím, jak to udělat s x tisíc řádkami hromadně? moc děkuji Honza

Příloha: 50174_vzorek_data_wall.xlsx (20kB, staženo 19x)

Zaslat odpověď >

---

elninoslov(19.3.2021 20:10)#050176

Do vedľajších buniek všetky pod seba rozloží na riadky
Sub SPLITJOIN()
Dim RNG As Range, A()
Set RNG = Worksheets("List1").Range("B9:B20")
A = Application.Transpose(Split(Replace(Join(Application.Transpose(Application.Index(RNG.Value, 0, 1)), Chr(10)), Chr(13), ""), Chr(10)))
RNG.Offset(0, 1).Resize(UBound(A, 1)).Value = A
End Sub
Do vedľajších buniek, všetky vloží so zámenoou riadkovania za ". "
Sub REPLACESPLIT()
Dim RNG As Range, A()
Set RNG = Worksheets("List1").Range("B9:B20")
A = Application.Transpose(Split(Replace(Replace(Join(Application.Transpose(Application.Index(RNG.Value, 0, 1)), "•°"), Chr(13), ""), Chr(10), ". "), "•°"))
RNG.Offset(0, 1).Resize(UBound(A, 1)).Value = A
End Sub
Musí sa tam riešiť, ako vidieť, aj Enter (kód 13).

Každopádne toto je skrátená verzia, lebo Transpose funguje iba do 32767 prvkov poľa. Ak ich má byť viac, urobíme cyklus. Poskúšajte.citovat

tekIng23(20.3.2021 23:11)#050184

Jejda..... takovou rychlost jsem opravdu nečekal ...... Funguje to fantasticky - už mám hotovo. :-) moc moc děkujicitovat

veny(22.3.2021 10:23)#050197

Šlo by to i pomocí PowerQuery, nicméně by bylo potřeba znát přesnou datovou strukturu.
Přikládám pro ilustraci zkoušku na 5k řádcích.

Příloha: 50197_preformatovani.rar (48kB, staženo 12x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse