Não há mais suporte para esse navegador.
Atualize o Microsoft Edge para aproveitar os recursos, o suporte técnico e as atualizações de segurança mais recentes.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Olá,
Tenho uma planilha grande do qual alguns campos serão preenchidos por outras pessoas.
Gostaria de saber se existe uma forma de bloquear o uso de acento nela, de forma que uma mesma palavra não se diferencie nos filtros por causa deles.
Obrigada!
Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.
Resposta aceita pelo autor da pergunta
Olá Tamires!
Quero te sugerir uma solução sem ter que recorrer ao VBA.
Acesse o link do artigo do meu blog:
Abraços!
Resposta aceita pelo autor da pergunta
Olá, Tamires_cl, tudo bem?
Seja bem-vinda à Comunidade Microsoft.
Pressione e mantenha pressionada a tecla 'ALT' e pressione a tecla 'F11'.
Inserir um módulo no seu VBAProject, objetos do Microsoft Excel
Copie o código abaixo e cole-o no Módulo1.
For i = 1 To StringLength
SearchCHAR = Mid(InString, i, 1)
Select Case SearchCHAR
Case "Š" ' 138
FoundCHAR = "S"
Case "Ž" ' 142
FoundCHAR = "Z"
Case "š" ' 154
FoundCHAR = "s"
Case "ž" ' 158
FoundCHAR = "z"
Case "Ÿ" ' 159
FoundCHAR = "Y"
Case "À" ' 192
FoundCHAR = "A"
Case "Á" ' 193
FoundCHAR = "A"
Case "Â" ' 194
FoundCHAR = "A"
Case "Ã" ' 195
FoundCHAR = "A"
Case "Ä" ' 196
FoundCHAR = "A"
Case "Å" ' 197
FoundCHAR = "A"
Case "Ç" ' 199
FoundCHAR = "C"
Case "È" ' 200
FoundCHAR = "E"
Case "É" ' 201
FoundCHAR = "E"
Case "Ê" ' 202
FoundCHAR = "E"
Case "Ë" ' 203
FoundCHAR = "E"
Case "Ì" ' 204
FoundCHAR = "I"
Case "Í" ' 205
FoundCHAR = "I"
Case "Î" ' 206
FoundCHAR = "I"
Case "Ï" ' 207
FoundCHAR = "I"
Case "Ñ" ' 209
FoundCHAR = "N"
Case "Ò" ' 210
FoundCHAR = "O"
Case "Ó" ' 211
FoundCHAR = "O"
Case "Ô" ' 212
FoundCHAR = "O"
Case "Õ" ' 213
FoundCHAR = "O"
Case "Ö" ' 214
FoundCHAR = "O"
Case "Ù" ' 217
FoundCHAR = "U"
Case "Ú" ' 218
FoundCHAR = "U"
Case "Û" ' 219
FoundCHAR = "U"
Case "Ü" ' 220
FoundCHAR = "U"
Case "Ý" ' 221
FoundCHAR = "Y"
Case "à" ' 224
FoundCHAR = "a"
Case "á" ' 225
FoundCHAR = "a"
Case "â" ' 226
FoundCHAR = "a"
Case "ã" ' 227
FoundCHAR = "a"
Case "ä" ' 228
FoundCHAR = "a"
Case "å" ' 229
FoundCHAR = "a"
Case "ç" ' 231
FoundCHAR = "c"
Case "è" ' 232
FoundCHAR = "e"
Case "é" ' 233
FoundCHAR = "e"
Case "ê" ' 234
FoundCHAR = "e"
Case "ë" ' 235
FoundCHAR = "e"
Case "ì" ' 236
FoundCHAR = "i"
Case "í" ' 237
FoundCHAR = ""
Case "î" ' 238
FoundCHAR = "i"
Case "ï" ' 239
FoundCHAR = "i"
Case "ð" ' 240
FoundCHAR = "o"
Case "ñ" ' 241
FoundCHAR = "n"
Case "ò" ' 242
FoundCHAR = "o"
Case "ó" ' 243
FoundCHAR = "o"
Case "ô" ' 244
FoundCHAR = "o"
Case "õ" ' 245
FoundCHAR = "o"
Case "ö" ' 246
FoundCHAR = "o"
Case "ù" ' 249
FoundCHAR = "u"
Case "ú" ' 250
FoundCHAR = "u"
Case "û" ' 251
FoundCHAR = "u"
Case "ü" ' 252
FoundCHAR = "u"
Case "ý" ' 253
FoundCHAR = "y"
Case "ÿ" ' 255
FoundCHAR = "y"
Case Else
FoundCHAR = SearchCHAR
End Select
CheckStringCHAR = CheckStringCHAR & FoundCHAR
Next i
End FunctionPara usar a função em sua pasta de trabalho, você precisará ir para uma célula em uma coluna preta e copiar a próxima fórmula em uma célula. O "inString" na fórmula deve ser substituído com o (mesma linha): = CheckStringCHAR (inString) Se o seu endereço de e-mail está na célula A2, e na próxima coluna em branco disponível é D. Em seguida, entrar na célula D2 a seguinte fórmula : = CheckStringCHAR (A2) Peço também que visualize no site abaixo um tutorial alto explicativo:http://www.funcaoexcel.com.br/remover-acentos/Se a resposta ajudou de alguma forma, por favor, marque como resposta, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente. Espero ter ajudado, até mais!