VBA - Como deletar uma palavra em um intervalo de células

Junho 2017


Se você quiser excluir uma palavra de uma frase, basta fazer uma pequena macro para removê-la. As coisas se complicam quando a palavra solicitada é, por exemplo, "APALAVRA" ou "APalavra" ou "apalavra" ou "aPalavra", etc.

Esta macro resolve esse probleminha:
Colocar no cabeçalho do módulo    
Option Explicit
Option Compare Text


Sub SupprimerMot()    
Dim Cel As Range, Plage As Range
Dim Mot As String
Set Plage = Range("B2:B20") 'a ser adaptado ao intervalo a ser percorrido.
Palavra = "APalavra" 'adaptar à palavra a ser buscada e excluída
'Não é necessário se o intervalo for pequeno
Application.ScreenUpdating = False
For Each Cel In Plage
If Cel Like "*" & Mot & "*" Then
Cel = Replace(Cel, Palavra, "")
'Para deletar o espaço duplo que resulta...
Cel = Replace(Cel, " ", " ")
End If
Next Cel
Application.ScreenUpdating = True
End Sub

Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 25 de setembro de 2016 às 18:11 por pintuda.
Este documento, intitulado 'VBA - Como deletar uma palavra em um intervalo de células', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.