MS Excel

Zdravím,

potřebovala bych poradit. Stáhla jsem si z internetu všechna PSČ, ale mají mezeru, kterou nejde zrušit ani TRIMEM, ani převedením na jiný formát, ani nahradit mezeru. Už nevím co s tím. Nenapadá Vás ještě něco?
Děkuji moc

Zaslat odpověď >

Opičák(10.6.2014 14:53)#019886

Napadá, ale chce to přílohu. Vložte pár řádků s tímto PSČ.citovat

lubo(10.6.2014 15:10)#019887

PROČISTIT (TRIM) jednu mezeru v textu mezi slovy nechává. Možná je tam ale pevná mezera.

Pokud to má být jednorázová úprava, asi nejrychlejší bude vybrat mezeru do schránky, ctrl-h, do pole najít vložit obsah schránky a dát nahradit vše.citovat

AL(10.6.2014 15:32)#019891

Označte oblasť, v ktorej chcete odstrániť medzery a spustite nasledujúci kód (vygooglil som v dobe, keď som ešte nebol schopný písať kódy sám a tej doby ho stále používam):Sub RemoveAllSpaces()
'David McRitchie 2000-10-24
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Selection.SpecialCells(xlConstants).Replace what:=Chr(160), _
Replacement:="", _
lookat:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Selection.SpecialCells(xlConstants).Replace what:=Chr(32), _
Replacement:="", _
lookat:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Subcitovat

eLCHa(10.6.2014 17:41)#019892

Předpokládám, že je to stejné jako tady.
http://wall.cz/index.php?m=topic&id=12379&page=1#post-12386
Mát tam Pevnou mezerucitovat

AL(10.6.2014 20:30)#019893

lubo, eLCHa i ja v podstate píšeme to samé, kód pevnej medzery je (ľavý) Alt+0160 (a takto je možné pevnú medzeru vložiť do dialógového okna Nájsť a Nahradiť), čo v uvedenom VBA scripte je práve Chr(160)....citovat

pani-Dortova(11.6.2014 10:08)#019897

Děkuji moc, už se mi to podařilocitovat

Téma: Vymazání mezery v PSČ

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje