Makro pro smazání

[Martin Švach]

Dobrý den,

chtěl bych se zeptat, zda-li je možné vytvořit makro, aby pracovalo tak, jak uvedu níže.

Z databáze dostávám tento výstup:
33 56 668 3 514-5|ložený|4|Falls|24,45|55|79,45|42||13,5|černé uhlí - Gdansk/Szczecin Port C. - Ostrava hl.n. - 352000123|Chałupki|Ostrava hl.n.|Chałupki|Ostrava hl.n. - USL||879502||||29|brzda na podvozku|36601215|52477
33 54 668 7 063-1|ložený|4|Falls|26,59|52,51|79,1|52||13,52|černé uhlí - Gdansk/Szczecin Port C. - Ostrava hl.n. - 352000123|Chałupki|Ostrava hl.n.|Chałupki|Ostrava hl.n. - USL||879502||||20|brzda na podvozku|36601204|2805


Potřeboval bych, aby makro automaticky vymazalo vše, co je za 12-místným číslem. Takže z prvního řádku by mělo zůstat jen 33 56 668 3 514-5.
Moc by mi to ulehčilo práci, ale bohužel jsem zatím sám nepřišel na způsob, jak to udělat.

Předem díky za pomoc.

MŠ

[cmuch]

Dobrý den,
nestačil by vzorec do vedlejšího sloupce?

Kód: Vybrat vše

=ZLEVA(A1;17)

Jinak makro by mohlo vypadat takto

Kód: Vybrat vše

Sub SmazZnaky()
  Dim radek As Long
  
  Application.ScreenUpdating = False

  radek = Cells(Rows.Count, "A").End(xlUp).Row
  
  For radek = radek To 1 Step -1
    Cells(radek, 1) = Mid(Cells(radek, 1), 1, 17)
  Next
  
  Application.ScreenUpdating = True
End Sub

[Martin Švach]

Moc děkuju za rychlou pomoc. :) Vzorec úplně stačí...

Ani nevíte jak jste mi pomohl, kolik práce ušetřil. Pro Vás banalita, pro mě to byl hlavolam.