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

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: rar

50197_preformatovani.rar (48kB, staženo 13x)

citovat

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje