< návrat zpět

MS Excel


Téma: Dosazení textu na první prázdné místo v řádku rss

Zaslal/a 6.10.2021 12:47

Všechny vás zdravím, měl bych prosbu. V excelu moc neumím a potřeboval bych nějak jednoduše hromadně dosadit určitý text na první prázdnou buňku každého řádku. Doposud to dělám tak, že postupně vybírám první prázdné místo ručně a do toho výběru pak vložím text. Určitě je i jednodušší řešení, poradíte mi prosím? Moc děkuji za ochotu

Zaslat odpověď >

Strana:  1 2   další »
#051294
kabaka
prilož prílohucitovat
#051295
avatar
Snad to bude pro pochopení stačit.
Příloha: jpg51295_snap.jpg (177kB, staženo 45x)
51295_snap.jpg
citovat
#051296
avatar
a víte o tom že excel má 1 048 576 řádků? 10 to chcete doplnit všechny?
myslím že to bude chtít být trochu konkrétnějšícitovat
#051297
avatar
Jedná se mi pouze o vyplněné řádky, řekněme třeba 2000 řádků a možná jsem to napsal i blbě. Jde mi o doplnění první prázdné buňky za již vyplněnýma, tak jak je to na tom obrázku.citovat
#051298
kabaka
Skús toto makro

Sub PridejText()
For Each c In Selection
c.Activate
ActiveCell.FormulaR1C1 = "vkládaný text "
Next c
End Sub


Funguje tak, že do pozície úvodzoviek "vkladaný text", dáš text, ktorý chceš vložiť, označíš bunky, kde chceš ho vložiť a aplikuješ makro.citovat
#051299
avatar
Díky za radu, ale nevím, jestli si mě pochopil, nic označovat nechci, to dělám teď. Když už označovat, tak celé sloupce a ne jednotlivé buňky. Navíc ani to makro asi neumím vložit, vývojáře mám zaplého, ale co dál?citovat
#051302
avatar
Tak jestli je to jednorázová akce a nejsou tam v tom vzorce, tak bych to udělal: do pom.sloupce vzadu sloučit Concatenate sloupce, do počtu nejvyššího, mezi si dát oddělovač např. #, nakonec připojit text a pak výsledek rozdělit text do sloupců s tím oddělovačem. Netestoval jsem, ale mohlo by to fungovat. Vzorce samozřejmě roztáhnout na potřebný počet řádků.
EDIT: tak pardon, bylo by to složitější, vytvořený sloupec přeuložit "jako hodnotu" a před rozdělením do sloupců v oblasti nahradit např. ### nebo ## za jeden rozdělovač #. Ale pro 2000 řádků i to se vyplatícitovat
#051303
kabaka

PavelJanec napsal/a:

Díky za radu, ale nevím, jestli si mě pochopil, nic označovat nechci, to dělám teď. Když už označovat, tak celé sloupce a ne jednotlivé buňky. Navíc ani to makro asi neumím vložit, vývojáře mám zaplého, ale co dál?


Vývojar-visual basic-insert modul-skopírovať tam to makrocitovat
#051306
avatar
Predpokladám, že označíš prvý stlpec.
Sub Makro1()
For Each bunka In Selection
bunka.Offset(, 1000).End(xlToLeft).Offset(, 1) = "tvoj text"
Next bunka
End Sub
citovat
#051308
kabaka

marjankaj napsal/a:

Predpokladám, že označíš prvý stlpec.


Keď označí celý prvý stĺpec a aplikuje makro tak sa text vloží aj tam, kde nie je bunka vyplnená.

Ak označí len určitý rozsah, tak to funguje ok.

Priložený súbor s makrom od Marjankaja
Příloha: zip51308_prva-prazdna-bunka.zip (15kB, staženo 3x)
citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Kombinace bez opakování – výpis

elninoslov • 4.12. 2:35

Chyba pri triedení

Denis • 3.12. 20:33

Chyba pri triedení

elninoslov • 3.12. 19:13

Chybné řazení ve filtrované oblasti

elninoslov • 3.12. 18:58

Chyba pri triedení

Denis • 3.12. 17:39

Chybné řazení ve filtrované oblasti

B3rsiCZ • 3.12. 15:56

Chybné řazení ve filtrované oblasti

B3rsiCZ • 3.12. 15:55