În timp ce importați fișier text în foaie de calcul Excel, din păcate, acesta a păstrat virgulele nedorite la final. Devine cu adevărat dificil să eliminați virgulele suplimentare din celule. Dacă încercați să remediați acest lucru manual, atunci va dura mult timp. Cu toate acestea, va fi mult mai ușor cu codul macro.
În acest articol ne vom concentra asupra modului de a elimina virgulele nedorite și de a le păstra acolo unde este nevoie. Este întotdeauna mai bine să începeți cu curățarea datelor pentru a evita orice eroare în etapa ulterioară și să faceți rapoarte care altfel ar fi putut fi foarte agitate și nimeni nu dorește să-și petreacă timpul pentru reluare.
Dacă găsiți virgule inutile în date, puteți să le eliminați datorită diferitelor funcții, cum ar fi TRIM, SUBSTITUTE, FIND, LEN, REPLACE sau puteți utiliza FIND & REPLACE (CTRL + H). Puteți alege dintre mai multe metode pentru a le elimina.
În acest articol, ne vom concentra asupra modului de a elimina virgulele nedorite din fișierele CSV importate și apoi de a salva după finalizarea curățării prin codul VBA.
Întrebare: Vă rugăm să consultați exemplul de fișier txt din atașament. Am nevoie de un cod vb pentru a șterge ultimele 8 caractere ale liniei # 5
Pentru mai multe informații despre întrebare puteți face clic pe acest link
Următorul este instantaneul fișierului notepad:
Linia # 5 are următorul text în „RX408282,20150630 ,,,,,,,,,”
în timp ce trebuie să fie „RX408282,20150630" & în același timp, codul VBA nu ar trebui să șteargă virgula din cele 4 linii de mai sus.
Pentru a obține codul, trebuie să urmăm pașii de mai jos pentru a lansa editorul VB:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Copiați codul de mai jos în modulul standard
Sub test () Dim fn As String, txt As String fn = Application.GetOpenFilename ("TextFiles, *. Txt") If fn = "" Exit Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ", + $" Open Replace (fn, ".txt", "_Clean.txt") Pentru ieșire ca # 1 Tipărire # 1, .Înlocuiește (txt, "") Închide # 1 Termină cu End Sub
Explicarea codului:
- Codul de mai sus vă va cere mai întâi să selectați fișierul în care se află
- După executarea codului, obținem un fișier de ieșire cu nume Test_Curățare
- Pentru a verifica dacă codul funcționează bine sau nu; permiteți-ne să deschidem fișierul .txt și să vedem rezultatele
- Putem vedea ultima linie, adică linia # 5, care anterior avea virgule nedorite la sfârșit, a fost reparată acum
Concluzie: În acest fel, putem elimina virgulele suplimentare dintr-un folder specificat și apoi putem salva datele corecte într-un alt fișier de notepad.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail