Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Substituir caracter...
 
Notifications
Clear all

Substituir caracteres Unicod

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por Issamu 9 anos atrás
2 Posts
2 Usuários
0 Reactions
645 Visualizações
RSS
 haraujo
(@haraujo)
Posts: 0
New Member
Topic starter
 

Boa noite, amigos do Forum.
Gostaria de pedir uma ajuda para vocês, onde numa planilha temos 2 SHeets.

-Sheet 1. Lista de nomes, onde temos no meio das palavras, strings unicod
-Sheet 2. o Dpara dessas strings unicod.

Gostaria de saber, se é possível, criar no excel, uma função para deixar fixa, que substitui essas string automáticamente,

Segue uma planilha em anexo, como exemplo.

Obrigado.

 
Postado : 03/08/2015 5:09 pm
 Issamu
(@issamu)
Posts: 0
New Member
 

Experimente o seguinte código baseado nas referências da sua planilha modelo:

Sub Arrumar_Unicode()

Dim i As Long
Dim rlast As Long
Dim sWhat As String, sReplacement As String
rlast = Sheets("Plan2").Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To rlast

sWhat = Trim(Sheets("Plan2").Cells(i, "A").Text)
sReplacement = Trim(Sheets("Plan2").Cells(i, "B").Text)

    Cells.Replace What:=sWhat, Replacement:=sReplacement, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
Next i

End Sub

Rode este código na planilha onde deseja arrumar.

 
Postado : 04/08/2015 6:07 am
Forum Jump:
  Tópico Anterior
Próximo Tópico