önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu tanımlayın

Function RegExpVeya(Mtn As String) As String

    

    Dim RegEx As Object

    Set RegEx = CreateObject("VBScript.RegExp")

    

RegEx.IgnoreCase = False

RegEx.Global = True

RegEx.Pattern = "fg|as|yd|sy"

RegExpVeya = RegEx.Replace(Mtn, "sd")



End Function

sonra diyelim ki B1 hücresine şu eşitliği yazın

=RegExpVeya(A1)

temel mantık bu