[VBA/Excel] Inserire parole di una colonna in Tag

[JohnBell]

Salve, ho un problema riguardate una possibile macro.
Ho un foglio di Excel con tre colonne, nella colonna centrale ho del parole già scritte e da scrivere in futuro (è un listino prezzi: quantità, Nome, prezzo). Ho la necessità di fare una macro che mi permetta di mettere la parola nella cella selezionata fra [c] [/c]
Es.

Prima: Nome Oggetto
Dopo: [c]Nome Oggetto[/c]

Purtroppo non so come fare , ho guardato se esiste già un funzione che serve allo scopo ma non lo trovato. Ringrazio anticipatamente chi saprà aiutarmi.

[JohnBell]

Nessuno sa rispondermi? Se non è una cosa fattibile ditemelo per favore che cercherò un altro programma o un altro modo per farlo. Grazie

[nicola75ss]

Sub tagga()
' dall'editor vba, menù strumenti => riferimenti aggiungi quello relativo a "microsoft vbscript regular expressions"
Set regexp = CreateObject("vbscript.regexp")
regexp.Pattern = "(\[c\])(.*)(\[/c\])"
For Each cella In Range("b:b")
    If cella.Value <> "" And regexp.test(cella) = False Then
        cella.Value = "[c]" & cella & "[/c]"
    End If
Next cella
End Sub

Nel mio codice la colonna in cui agire è la B. Tu adattalo alle tue esigenze.

[JohnBell]

Non so come ringraziarti, sei un grande. Grazie mille