Při importu textového souboru do tabulky aplikace Excel bohužel ponechal nežádoucí čárky na konci. Odstranit nadbytečné čárky v buňkách je opravdu obtížné. Pokud se to pokoušíte opravit ručně, zabere to hodně času. S kódem makra to však bude mnohem snazší.
V tomto článku se zaměříme na to, jak odstranit nechtěné čárky a ponechat je tam, kde jsou vyžadovány. Vždy je lepší začít s čištěním dat, abyste se vyhnuli chybám v pozdější fázi a vytvářeli zprávy, které by jinak mohly být velmi hektické a nikdo nechce trávit čas přepracováváním.
Pokud v datech najdete nějaké zbytečné čárky, můžete je odstranit, a to díky různým funkcím, jako je OŘÍZENÍ, NÁHRADA, NAJÍT, LEN, VYMĚNIT nebo můžete použít NAJÍT & VYMĚNIT (CTRL + H). Můžete si vybrat z několika metod jejich odstranění.
V tomto článku se zaměříme na to, jak odstranit nechtěné čárky z importovaných souborů CSV a poté je uložit po dokončení čištění pomocí kódu VBA.
Otázka: Viz ukázkový soubor txt v příloze. Potřebuji kód vb k odstranění posledních 8 znaků řádku#5
Pro více informací o otázce můžete kliknout na tento odkaz
Následuje snímek souboru poznámkového bloku:
Řádek č. 5 má následující text v „RX408282,20150630 ,,,,,,,,"
zatímco to musí být „RX408282,20150630" & současně by kód VBA neměl mazat čárku ve výše uvedených 4 řádcích.
Chcete -li získat kód, musíme ke spuštění editoru VB provést následující kroky:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Zkopírujte níže uvedený kód do standardního modulu
Dílčí test () Dim fn jako řetězec, txt jako řetězec fn = Application.GetOpenFilename ("TextFiles,*. Txt") If fn = "" Then Exit Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") Pro výstup jako #1 Tisk # 1, .Replace (txt, "") Zavřít #1 End With End Sub
Vysvětlení kódu:
- Výše uvedený kód vás nejprve vyzve k výběru souboru, kde se nachází
- Po spuštění kódu získáme výstupní soubor s názvem Test_Clean
- Chcete -li zkontrolovat, zda kód funguje správně nebo ne; otevřete soubor .txt a zobrazte výsledky
- Můžeme vidět poslední řádek, tj. Řádek # 5, který dříve měl na konci nežádoucí čárky, byl nyní opraven
Závěr: Tímto způsobem můžeme ze zadané složky odstranit další čárky a poté uložit správná data do jiného souboru poznámkového bloku.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail