Como localizar e substituir texto e preservar a formatação no Excel?
![]() |
![]() |
Localizar e substituir preservando a formatação com código de Macro
Localizar e substituir preservando a formatação com código de Macro
Não há outros métodos além do código de macro que possam ajudá-lo a localizar e substituir texto e preservar a formatação.
1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Application.
2. Clique em Inserir > Módulo e cole o código abaixo no script.
VBA: Localizar e substituir preservando a formatação
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
Dica: No código, KK é a sequência que você deseja localizar, e Kutools é a sequência pela qual deseja substituir; você pode alterá-los conforme necessário.
3. Pressione F5 e uma caixa de diálogo será exibida para que você selecione um intervalo onde deseja localizar e substituir, veja a captura de tela:
4. Clique em OK, e a sequência específica nas células selecionadas será substituída mantendo a formatação.
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!