MS Excel

Zdravím,

Už dlouho si lámu hlavu nad makrem pro úpravu obsahu bunky.
Jde mi o to, že bych potřeboval rozkopírovat obsah bunky na jednotlivé řádky a ke každému dokopírovat zbytek řádky.
Nevěděl by někdo jak to udělat jednoduše na jedno tlačítko?

Pro lepší pochopení příklad v příloze.
Za každou radu děkuji.

Zaslat odpověď >

elninoslov(8.9.2020 7:41)#047908

Moje chabé nervy... To je taký problém, keď chcete upraviť makro, dodať súbor, ktorý korešponduje s tým makrom? V makre čarujete so stĺpcami 14, 16, 17 (N, P, Q). O takých príloha nechyruje. Výstup má prepísať pôvodný riadok? Spravím to tak, že zdroj bude A1:K1 a výstup bude A1:Kx.

EDIT: Teraz som si prešiel okom to Vaše makro. Vôbec nerobí to čo vravíte - to bude na niečo iné. Ono zlučuje hodnoty zo stĺpcov P a Q do P od 12 riadku pokiaľ nieje prázdny riadok v N. V 11. riadku má byť nejaká hlavička, a formátujete všetky dostupné riadky Excelu - to je špatne.

Příloha: xls

47908_rozklad-riadkov-podla-bunky.xls (66kB, staženo 17x)

citovat

lubo(8.9.2020 14:54)#047913

Proč to raději nenaklikáte?

Power Query.....

Vstupní data do tabulky, Vybrat: Data/Z tabulky nebo oblasti
V PQ - klik na první sloupec,
Rozdělit sloupec, oddělovačem, Upřesnit možnosti ... rozdělit do řádky.

Pravý klik na první sloupec, transformovat, ořízout.

Zavřít a načíst (vybrat kam).
HOTOVO

Příště pravý klik na dotaz, vybrat aktualizovat.

Vygenerovaný program vypadá takto:

let
Zdroj = Excel.CurrentWorkbook(){[Name="Tabulka1"]}[Content],
#"Rozdělit sloupec oddělovačem" = Table.ExpandListColumn(Table.TransformColumns(Zdroj, {{"SL 1", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "SL 1"),
#"Změněný typ1" = Table.TransformColumnTypes(#"Rozdělit sloupec oddělovačem",{{"SL 1", type text}}),
#"Oříznutý text" = Table.TransformColumns(#"Změněný typ1",{{"SL 1", Text.Trim, type text}})
in
#"Oříznutý text"citovat

MePExG(10.9.2020 20:09)#047947