< návrat zpět

MS Excel

Téma: Obsah buňky do řádků rss

Zaslal/a Paja_22 8.9.2020 7:13

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?
7 Pro lepší pochopení příklad v příloze.
Za každou radu děkuji.

Příloha: xls47907_priklad.xls (68kB, staženo 21x)
Zaslat odpověď >
elninoslov(8.9.2020 7:41)#047908
elninoslov
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: xls47908_rozklad-riadkov-podla-bunky.xls (66kB, staženo 18x)
citovat
lubo(8.9.2020 14:54)#047913
avatar
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
MePExG
Prikladám vypracované PQ.
Příloha: xlsx47947_pq_priklad.xlsx (29kB, staženo 19x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje