Como substituir todos os personagens em uma mesa por outros personagens
Você conhece isso? Os dados que você recebe de parceiros de negócios ou após a importação de dados contêm caracteres incorretos. Pode acontecer que uma vírgula decimal apareça sempre que uma vírgula for necessária. Ou pode acontecer que barras apareçam entre os dígitos individuais.
Você pode usar o comando REPLACE para localizar esses caracteres e substituí-los por outros caracteres. Mas é preciso muito esforço se você quiser fazer esse processo com mais frequência. Você economiza tempo executando a tarefa usando uma macro. Você pode chamar essa macro novamente de forma rápida e fácil na mesma situação no futuro.
Para incluir a macro em uma pasta de trabalho vazia, abra uma nova pasta de trabalho em todas as versões do Excel usando a combinação de teclas CTRL N. Em seguida, pressione a combinação de teclas ALT F11 para abrir o editor VBA. Selecione o comando INSERT - MODULE. Em seguida, insira a seguinte macro:
Trocar subcaracteres ()
On Error Resume Next
Dim Cell As Range
Dim Search for As String
Dim Replace with As String
SearchFor = "."
ReplaceBy = ","
Para cada célula em ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Próxima célula
No erro GoTo 0
End Sub
A macro substitui o ponto decimal por um ponto decimal em todas as células usadas na planilha ativa. Para chamar a macro, ative a planilha desejada, pressione a combinação de teclas ALT F8 e selecione a macro CHARACTER EXCHANGE.
Para controlar qual conteúdo é pesquisado e substituído, ajuste as duas variáveis SUCHENNACH e REPLACE BY na macro.
