Ao importar o arquivo de texto para a planilha do Excel, infelizmente, ele manteve as vírgulas indesejadas no final. É muito difícil remover vírgulas extras nas células. Se você estiver tentando consertar isso manualmente, isso levará muito tempo. No entanto, será muito mais fácil com o código de macro.
Neste artigo, vamos nos concentrar em como remover vírgulas indesejadas e mantê-las onde é necessário. É sempre melhor começar limpando seus dados para evitar qualquer erro em um estágio posterior e fazer relatórios que, de outra forma, poderiam ter sido muito agitados e ninguém quer gastar seu tempo em retrabalho.
Se você encontrar qualquer vírgula desnecessária nos dados, você pode removê-los devido a várias funções, como TRIM, SUBSTITUTE, FIND, LEN, REPLACE ou você pode usar FIND & REPLACE (CTRL + H). Você pode escolher entre vários métodos para removê-los.
Neste artigo, vamos nos concentrar em como remover vírgulas indesejadas de arquivos CSV importados e, em seguida, salvar após a limpeza ser concluída por meio do código VBA.
Pergunta: Consulte o arquivo txt de amostra em anexo. Preciso de um código vb para excluir os últimos 8 caracteres da linha 5
Para obter mais informações sobre as perguntas, você pode clicar neste link
A seguir está o instantâneo do arquivo do bloco de notas:
A linha 5 tem o seguinte texto em "RX408282,20150630 ,,,,,,,,"
embora precise ser "RX408282,20150630" & ao mesmo tempo, o código VBA não deve excluir a vírgula nas 4 linhas acima.
Para obter o código, precisamos seguir as etapas abaixo para iniciar o editor VB:
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Copie o código abaixo no módulo padrão
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 = ", + $" Open Replace (fn, ".txt", "_Clean.txt") Para saída como # 1 Imprimir # 1, .Replace (txt, "") Close # 1 End With End Sub
Explicação do código:
- O código acima pedirá primeiro que você selecione o arquivo onde ele está localizado
- Depois que o código é executado, obtemos um arquivo de saída com o nome Test_Clean
- Para verificar se o código está funcionando bem ou não; vamos abrir o arquivo .txt e ver os resultados
- Podemos ver a última linha, ou seja, a linha 5, que antes continha vírgulas indesejadas no final, foi corrigida agora
Conclusão: Desta forma, podemos remover vírgulas extras de uma pasta especificada e, em seguida, salvar os dados corretos em outro arquivo do bloco de notas.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail