rampulaparthi
Change to
Sub test()
Dim r As Range, m As Object, Ptn As String, temp As String
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
For Each r In Range("d2", Range("d" & Rows.Count).End(xlUp))
If r.Value <> "" Then
.Pattern = "([\$\(\)\-\^\|\\\[\]\*\+\?\.\?])"
Ptn = .Replace(r(, 2).Value, "\$1")
.Pattern = "[ _]+"
Ptn = Join(Split(.Replace(Ptn, Chr(2)), Chr(2)), "|")
.Pattern = "\b(" & Ptn & ")\b"
For Each m In .Execute(r(, 2).Value)
temp = temp & m.Value
Next
r(, 3).Value = Len(temp): temp = ""
End If
Next
End With
End Sub
Bookmarks