Durante l'importazione di file di testo in un foglio di calcolo Excel, sfortunatamente, ha mantenuto le virgole indesiderate alla fine. Diventa davvero difficile rimuovere le virgole extra nelle celle. Se stai cercando di risolverlo manualmente, ci vorrà molto tempo. Tuttavia, sarà molto più semplice con il codice macro.
In questo articolo ci concentreremo su come rimuovere le virgole indesiderate e conservarle dove richiesto. È sempre meglio iniziare con la pulizia dei dati per evitare errori in una fase successiva e creare rapporti che altrimenti sarebbero stati molto frenetici e nessuno vuole dedicare il proprio tempo alla rielaborazione.
Se trovi virgole non necessarie nei dati, puoi rimuoverle, grazie a varie funzioni, come TRIM, SUBSTITUTE, FIND, LEN, REPLACE oppure puoi usare FIND & REPLACE (CTRL + H). Puoi scegliere tra diversi metodi per rimuoverli.
In questo articolo, ci concentreremo su come rimuovere le virgole indesiderate dai file CSV importati e quindi salvare dopo che la pulizia è stata completata tramite il codice VBA.
Domanda: Fare riferimento al file txt di esempio in allegato. Ho bisogno di un codice vb per eliminare gli ultimi 8 caratteri della riga n. 5
Per maggiori informazioni sulla domanda puoi cliccare su questo link
Di seguito è riportata l'istantanea del file del blocco note:
La riga n. 5 ha il seguente testo in "RX408282,20150630,,,,,,,,"
mentre deve essere "RX408282,20150630" E allo stesso tempo il codice VBA non deve eliminare la virgola nelle righe 4 sopra.
Per ottenere il codice, dobbiamo seguire i passaggi seguenti per avviare l'editor VB:
- Fare clic sulla scheda Sviluppatore
- Dal gruppo Codice, seleziona Visual Basic
- Copia il codice sottostante nel modulo standard
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 = ",+$" Apri Replace(fn, ".txt", "_Clean.txt") Per output come #1 Stampa # 1, .Replace(txt, "") Close #1 End With End Sub
Spiegazione del codice:
- Il codice sopra ti chiederà prima di selezionare il file in cui si trova
- Dopo l'esecuzione del codice, otteniamo un file di output con nome Test_Clean
- Per verificare se il codice funziona correttamente o meno; apriamo il file .txt e vediamo i risultati
- Possiamo vedere l'ultima riga, ovvero la riga n. 5, che in precedenza aveva virgole indesiderate alla fine, ora è stata corretta
Conclusione: In questo modo, possiamo rimuovere le virgole extra da una cartella specificata e quindi salvare i dati corretti in un altro file del blocco note.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica