excel - kopirovani casti bunky

teda chlapi, jste dobry to reseni - ikona : text do sloupcu - neznam. hanba me fackuje! a to druhe reseni s tim vzoreckem - na to nestacim kazdopadne diky moc!! oboji je super

jen, jeste to trochu zkomplikuju. kdyz ste vyresili tohle, treba mi pomuzete jeste s timkle.

jedna se o to, ze se muze stat a taky se to stava, ze v jedne bunce je tech jmen nekolik. dam sem priklad:

bunka A1 vypada takhle:

Barchánek Pett, Jarní 270/40, Střížkov, 19000 Praha
Barchánek Pavel, Letní 49, Letňany, 19900 Praha 9
Kynzl Alois, Ke stadionu 99, 25267 Tuchoměřice
Kynzl Zdeněk, Pod jezem 13, 25267 Tuchoměřice

maximum jsou 4 jmena s adresama v jedne bunce s tim, ze vzdy je to v te bunce pod sebou, ale v jedne bunce. kdyz zkusim pouzit "text do sloupcu" tak mi to oddeli jen prvni jmeno a ta tri dalsi se nepouziji. slo by i tohle nejak osetrit?

jeste dodam, ze ve vetsine pripadu je v jedne bunce jedno jmeno, nekdy 2, nekdy 3 a nekdy 4. distribuce je nahodna.

Kolik je takovýchto případů? Do 100 bych to asi řešil ručně. V případě 4 údajů v jedné buňce bych pod buňku vložil 3 řádky a do nich vyjmul 3x údaje z buňky A1 (Ctrl X Ctrl V) a pak použil volbu "Text do sloupců". Ručním úpravám se stejně nevyhneš, pokud chceš mít stejné údaje ve stejném sloupci.

asi jo.. asi to tak udelam.. tech pripadu bude celkem tak tretina, ale co mi zbyva.. ikdyz by bylo fajn to mit zvladnute nerucne, protoze bohuzel data dostavam v tehle podobe a nejde s tim nic delat. vzdy dostanu v jedne bunce cekolik jmen a vzdy si s tim tedy budu muset hrat. kdyby vas neco napadlo na zautomatizovani, bylo by to super!

Tohle makro rozhází obsah zalomené buňky do jednotlivých řádků.
Neříkám, že to nejde napsat i efektivnějc, ale nechtělo se mi moc přemýšlet takhle brzo ráno.

tohle makro to zvladlo dobre diky! mimochodem, docela by me zajimalo, jak evektivnejc by to slo!

No myslím, že jestlis to pustil na excel s tisíci řádky, tak to pár minut muselo chroustat.

Základní zefektivnění by bylo v přidání Application.ScreenUpdating=False na začátek (před DO) a Application.ScreenUpdating=True na konec (před End Sub). Tím bys vypnul grafický výstup, makro by nemuselo nic vykreslovat - vykreslování zabere nejvíc času. Na druhou stranu bys neviděl, že "to něco dělá". Prostě by Excel na chvíli jakoby zamrznul a pak vyhodil výsledek naráz.

pak je tam taky spousta řádků Activecell.offset, kdy následně pracuji s hodnotou té buňky. To se dá napsat i efektivněji (nemusíš se napřed na tu buňku přepnout, abys pracoval s její hodnotou, můžeš se na ni odkazovat rovnou). Jenomže mně se to takto líp debuguje.

Dalo by se laborovat i s odstraněním DoEvents. Ten příkaz dovoluje počítači věnovat se i ostatním aktivitám mimo to Excel makro. U krátkých maker není potřeba, dlouhá makra bez něj tuhnou. Dost to celé makro zpomaluje ale je to stabilní.

jak evektivnejc by to slo

Sub MakeLines()
    Dim aCell As Range
    Dim aValues() As String
    Dim aBound As Integer
    
    Application.ScreenUpdating = False
    Set aCell = Range("A1")
    Do While aCell <> ""
        aValues = Split(aCell, Chr(10))
        aBound = UBound(aValues)
        If aBound > 0 Then
            aCell.EntireRow.Resize(aBound).Insert
            aCell.Offset(-aBound).Resize(aBound + 1) = WorksheetFunction.Transpose(aValues)
        End If
        Set aCell = aCell.Offset(1)
    Loop
    Application.ScreenUpdating = True
End Sub

do techhle veci jsem bohuzel nikdy neproniknul. co ted napisu, je nejspis uplna hloupost, ale dokazal bych udelat takovehle makro "zaznamem makra"? nebo se tohle da jen a pouze napsat jako kod?

Dá sa to len napísať ručne, cez záznam makra by takýto kód nikdy nevznikol. Napísať kód efektívnejšie ako to, čo vznikne záznamom makra, nie je nič zložité. Záznam makra som síce nikdy nepoužil, ale z môjho laického pohľadu sa mi to zdá ako zdĺhavý a neefektívny spôsob vytvárania makier.