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

Faça uma pergunta

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
Jean-François Pillou

Jean-François Pillou - Fundador do CCM
Mais conhecido como Jeff, Jean-François Pillou é o fundador do CommentCaMarche.net. Ele também é CEO do CCM Benchmark e diretor digital do Grupo Figaro.

Mais informações sobre a equipe do CCM