Podczas importowania pliku tekstowego do arkusza kalkulacyjnego programu Excel niestety zachował on niechciane przecinki na końcu. Naprawdę trudno jest usunąć dodatkowe przecinki w komórkach. Jeśli próbujesz naprawić to ręcznie, zajmie to dużo czasu. Jednak z kodem makr będzie to dużo łatwiejsze.
W tym artykule skupimy się na usuwaniu niechcianych przecinków i przechowywaniu ich tam, gdzie jest to wymagane. Zawsze lepiej zacząć od czyszczenia danych, aby uniknąć błędów na późniejszym etapie i tworzyć raporty, które w przeciwnym razie byłyby bardzo gorączkowe i nikt nie chce spędzać czasu na ponownej pracy.
Jeśli znajdziesz niepotrzebne przecinki w danych, możesz je usunąć dzięki różnym funkcjom, takim jak TRIM, SUBSTITUTE, FIND, LEN, REPLACE lub możesz użyć funkcji ZNAJDŹ I ZAMIEŃ (CTRL + H). Możesz wybrać jedną z kilku metod ich usunięcia.
W tym artykule skupimy się na tym, jak usunąć niechciane przecinki z importowanych plików CSV, a następnie zapisać po zakończeniu czyszczenia za pomocą kodu VBA.
Pytanie: Proszę odnieść się do przykładowego pliku txt w załączniku. Potrzebuję kodu vb, aby usunąć ostatnie 8 znaków wiersza nr 5
Aby uzyskać więcej informacji na temat pytania, kliknij ten link
Poniżej znajduje się migawka pliku notatnika:
Wiersz nr 5 zawiera następujący tekst w „RX408282,20150630,,,,,,,,”
podczas gdy musi być „RX408282,20150630" & jednocześnie kod VBA nie powinien usuwać przecinka w powyższych 4 liniach.
Aby uzyskać kod, musimy wykonać poniższe kroki, aby uruchomić edytor VB:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Skopiuj poniższy kod w standardowym module
Sub test() Dim fn As String, txt As String 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 = ",+$" Otwórz Replace(fn, ".txt", "_Clean.txt") dla wyjścia jako #1 Drukuj # 1, .Replace(txt, "") Zamknij #1 Koniec z końcem Sub
Wyjaśnienie kodu:
- Powyższy kod najpierw poprosi o wybranie pliku, w którym się znajduje
- Po uruchomieniu kodu otrzymujemy plik wyjściowy o nazwie Test_Wyczyść
- Aby sprawdzić, czy kod działa poprawnie, czy nie; otwórzmy plik .txt i zobaczmy wyniki
- Widzimy ostatnią linię, czyli linię nr 5, która wcześniej miała niechciane przecinki na końcu, została naprawiona
Wniosek: W ten sposób możemy usunąć dodatkowe przecinki z określonego folderu, a następnie zapisać poprawne dane w innym pliku notatnika.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail