Olá seja bem vindo ao meu novo artigo
Este tema surgiu do vídeo de um amigão meu, que é o Prof. Dr. João Rosa no canal dele "Botão do Excel", segue o vídeo abaixo, e não se esqueçam de se inscrever no canal dele também!
E sua solução
=TIRAR(ARRUMAR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR
((SUBSTITUIR(A2;"ü";"u"));"û";"u"));"ú";"u"))
;"ù";"u"));"ö";"o"));"õ";"o"));"ô";"o"));"ó";"o"))
;"ò";"o"));"ï";"i"));"î";"i"));"í";"i"));"ì";"i"))
;"ë";"e"));"ê";"e"));"é";"e"));"è";"e"));"ç";"c"))
;"å";"a"));"ä";"a"));"ã";"a"));"â";"a"));"á";"a"))
;"à";"a"));"Ü";"U"));"Û";"U"));"Ú";"U"));"Ù";"U"))
;"Ö";"O"));"Õ";"O"));"Ô";"O"));"Ó";"O"));"Ò";"O"))
;"Ï";"I"));"Î";"I"));"Í";"I"));"Ì";"I"));"Ë";"E"))
;"Ê";"E"));"É";"E"));"È";"E"));"Ç";"C"));"Å";"A"))
;"Ä";"A"));"Ã";"A"));"Â";"A"));"Á";"A"));"À";"A"))))
ou em inglês
=CLEAN(TRIM((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE
((SUBSTITUTE(A2;"ü";"u"));"û";"u"));"ú";"u"))
;"ù";"u"));"ö";"o"));"õ";"o"));"ô";"o"))
;"ó";"o"));"ò";"o"));"ï";"i"));"î";"i"))
;"í";"i"));"ì";"i"));"ë";"e"));"ê";"e"))
;"é";"e"));"è";"e"));"ç";"c"));"å";"a"))
;"ä";"a"));"ã";"a"));"â";"a"));"á";"a"))
;"à";"a"));"Ü";"U"));"Û";"U"));"Ú";"U"))
;"Ù";"U"));"Ö";"O"));"Õ";"O"));"Ô";"O"))
;"Ó";"O"));"Ò";"O"));"Ï";"I"));"Î";"I"))
;"Í";"I"));"Ì";"I"));"Ë";"E"));"Ê";"E"))
;"É";"E"));"È";"E"));"Ç";"C"));"Å";"A"))
;"Ä";"A"));"Ã";"A"));"Â";"A"));"Á";"A"))
;"À";"A"))))
Achei muito interessante a sua solução, mas pensei será que é possível fazer de maneira diferente sem a utilização da fórmula "SUBSTITUIR", para eliminar os acentos.
Para retirar os acentos, pedi ajuda a um grande amigo Bruno Abdalla de Souza, e ele me deu a luz ou a resposta propriamente dita, sendo que o desafio é não utilizar a ativação das fórmulas matriciais (CSE - Control + Shift + Enter) no MS Excel e não utilizar as fórmulas novas do Excel 365/ Excel 2019, mas neste caso foi necessário somente uma única função para concatenar toda a resposta.
Segue a resposta
=CONCAT(ÍNDICE(CARACT(PROC(--NÃO(ÉERROS(CORRESP(UNICODE(
EXT.TEXTO(B2;LIN(INDIRETO("1:"&NÚM.CARACT(B2)));1));{0;192;193;194;195;196;197;199;200;201;202;203;204;205;206;
207;209;210;211;212;213;214;217;218;219;220;221;224;225;226;
227;228;229;231;232;233;234;235;236;237;238;239;241;242;243;
244;245;246;249;250;251;252;253;255};0)))*UNICODE(EXT.TEXTO(
B2;LIN(INDIRETO("1:"&NÚM.CARACT(B2)));1));{0;192;193;194;195;
196;197;199;200;201;202;203;204;205;206;207;209;210;211;212;
213;214;217;218;219;220;221;224;225;226;227;228;229;231;232;
233;234;235;236;237;238;239;241;242;243;244;245;246;249;250;
251;252;253;255};{0;65;65;65;65;65;65;67;69;69;69;69;73;
73;73;73;78;79;79;79;79;79;85;85;
85;85;89;97;97;97;97;97;97;99;101;101;101;101;105;105;
105;105;110;111;111;111;111;111;117;117;117;117;121;121})
+ÉERROS(CORRESP(UNICODE(EXT.TEXTO(B2;LIN(INDIRETO("1:"
&NÚM.CARACT(B2)));1));{0;192;193;194;195;196;197;199;200;
201;202;203;204;205;206;207;209;210;211;212;213;214;217;
218;219;220;221;224;225;226;227;228;229;231;232;233;234;
235;236;237;238;239;241;242;243;244;245;246;249;250;251;
252;253;255};0))*UNICODE(EXT.TEXTO(B2;LIN(INDIRETO("1:"&
NÚM.CARACT(B2)));1)));0))
ou inglês
=CONCAT(INDEX(CHAR(LOOKUP(--NOT(ISERROR(MATCH(UNICODE(MID(B2;ROW(INDIRECT("1:"&LEN(B2)));1));{0;192;193;194;195;196;197;199;200;201;202;203;204;205;206;207;209;210;211;212;213;214;217;218;219;220;221;224;225;226;227;228;229;231;232;233;234;235;236;237;238;239;241;242;243;244;245;246;249;250;251;252;253;255};0)))*UNICODE(MID(B2;ROW(INDIRECT("1:"&LEN(B2)));1));{0;192;193;194;195;196;197;199;200;201;202;203;204;205;206;207;209;210;211;212;213;214;217;218;219;220;221;224;225;226;227;228;229;231;232;233;234;235;236;237;238;239;241;242;243;244;245;246;249;250;251;252;253;255};{0;65;65;65;65;65;65;67;69;69;69;69;73;73;73;73;78;79;79;79;79;79;85;85;85;85;89;97;97;97;97;97;97;99;101;101;101;101;105;105;105;105;110;111;111;111;111;111;117;117;117;117;121;121})+ISERROR(MATCH(UNICODE(MID(B2;ROW(INDIRECT("1:"&LEN(B2)));1));{0;192;193;194;195;196;197;199;200;201;202;203;204;205;206;207;209;210;211;212;213;214;217;218;219;220;221;224;225;226;227;228;229;231;232;233;234;235;236;237;238;239;241;242;243;244;245;246;249;250;251;252;253;255};0))*UNICODE(MID(B2;ROW(INDIRECT("1:"&LEN(B2)));1)));0))
Obrigadão Grande amigo!
Espero que tenha gostado desse artigo!
Caso tenha alguma sugestão de outra técnica ou melhoria do conteúdo acima, poste aqui nos comentários.
Se gostou, curta e compartilhe este artigo para que todos saibam o que é possível fazer dentro do MS Excel.
E você já conhece o meu novo curso online de Excel?
Abraços a todos e até o próximo artigo!
Fabio BALDINI
Frase do Dia: "Inspiração existe, mas ela precisa te encontrar trabalhando." Autor: Picasso
Link permanente
Obrigado Fabio, João e ao Bruno também que no meu caso a segunda opção me ajudou bastante. Abs e vou dar uma olhada no canal, sucesso!
Link permanente
Muito bom, me ajudou bastante. Tinha uma tabela enorme com vários campos e esta fórmula foi muito útil.
Parabéns pela clareza de conteúdo.
Link permanente
Olá José fico muito feliz em poder ter ajudado! Abraços