Hello!
Could you please help me?
Is there any way to modify this macro or make a new one to be able to compare the keyword column and the description column?
In the keyword column it is about comparing, as its name indicates, the words that have EXACTLY the same word, as you can see in cell C8 it is FALSE because it is missing the letter "A" to TexarkanA.
Could you please help me?
Is there any way to modify this macro or make a new one to be able to compare the keyword column and the description column?
In the keyword column it is about comparing, as its name indicates, the words that have EXACTLY the same word, as you can see in cell C8 it is FALSE because it is missing the letter "A" to TexarkanA.
VBA Code:
Function Status(br1 As String, br2 As String) As Boolean
Const PunctExcl As String = "( ) ' ," '<- List any characters to ignore with a space between each
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\" & Replace(PunctExcl, " ", "|\")
br2 = .Replace(Application.Trim(br2), "")
.Pattern = "( |^)(" & Replace(.Replace(Application.Trim(br1), ""), " ", "|") & ")( |$)"
Status = .Test(br2)
End With
End Function