Você pode facilmente substituir todos os tremas usando uma macro
Normalmente não é um problema tão grande como era há alguns anos, mas tremas ainda podem causar problemas ao trocar dados. A figura a seguir mostra uma tabela com textos que contêm tremas:
Se você precisa trocar informações com outros sistemas ou enviar dados para outros países, pode ser útil substituir todos os tremas em uma tabela. Você substitui o ä por um ae, o ö por um oe, etc.
Claro, você pode fazer isso chamando repetidamente a função EDIT - REPLACE. Mas isso dá muito trabalho. Se você quiser substituir todos os três tremas ä, ö e ü nas maiúsculas e minúsculas, bem como o ß, você deve realizar sete operações de substituição em uma fileira.
É mais fácil com uma macro. Aqui está o código do programa apropriado:
Sub ReplaceUmlauts ()
Dim Cell As Range
Com Application.WorksheetFunction
Para cada célula na seleção
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Próxima célula
Terminar com
End Sub
A macro aninha as chamadas de substituição apropriadas por meio da função Suplentes um no outro. Este é o nome da função em inglês da função da tabela REPLACE.
Para usar a macro, primeiro selecione as células nas quais deseja substituir os tremas e, em seguida, chame a macro. A figura a seguir mostra a aparência da tabela com tremas depois de iniciar a macro:
