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

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

Fonte: http://br.ccm.net/faq/

• Twitter
• Facebook
• Google +
• Linkedin
• Pinterest