Funktion in VBA ersetzen

Question

Ich versuche, einige Daten bereinigen und könnte einige Hilfe mit der Ersetzungsfunktion verwenden.

Wenn ich brauche einen Zellen-Wert in Excel ersetzen von sagen wir mal „Paul die Optometrist Pa“ auf „Paul der Optometrist PA“ Ich würde nur so etwas wie dieses

Replace(t, " Pa", " PA") 

Das Problem verwenden mit, dass es ändert auch die Buchstaben in Paul zu "PAul". Offensichtlich will ich das nicht. Gibt es eine Möglichkeit, sie daran zu hindern, irgendetwas in der Saite zu ändern, die nicht spezifisch die "PA" ist, mit nichts als möglichen Leerzeichen davor und danach?

Answer 1

Diese RegEx entspricht Pa in der Zeichenfolge und ersetzt sie durch PA. Dies kann leicht aktualisiert wird Schleife durch Ihren Datensatz

Sub RegExExample()    
    With CreateObject("VBScript.RegExp") 
     .Global = True 
     .IgnoreCase = False 
     .Pattern = "(Pa)\b" 

     MsgBox .Replace("Paul the Optometrist Pa", "PA") 
    End With 
End Sub 

Will Ausgang Paul the Optometrist PA