Function RangeRegexReplace(ByVal Text As String, ByVal MatchPatternRange As Range, _ByVal ReplacePatternRange As Range, Optional ByVal IngoreCase As Boolean = True) As String'By Jing He 2017-9-1
'Last update 2017-9-2Dim count As Integer, x As Integer, i As Integer, j As Integer
Dim pattern() As String, replace() As StringIf MatchPatternRange.count <> ReplacePatternRange.count ThenRangeRegexReplace = "Numbers of cells in MatchPatternRange and ReplacePatternRange are not equal."Exit Function
End Ifcount = MatchPatternRange.count
ReDim pattern(0 To count - 1) As String
ReDim replace(0 To count - 1) As Stringi = 0
For Each c In MatchPatternRangepattern(i) = c.Valuei = i + 1
Next cj = 0
For Each c In ReplacePatternRangereplace(j) = c.Valuej = j + 1
Next c'Give no match value
RangeRegexReplace = "-"Dim regex As New RegExp
With regex.Global = True.MultiLine = True.IgnoreCase = IngoreCase
End WithFor x = 0 To count - 1 Step 1regex.pattern = pattern(x)If regex.Test(Text) ThenRangeRegexReplace = regex.replace(Text, replace(x))Exit ForEnd If
Next xEnd Function

Function RegexReplace(ByVal Text As String, ByVal MatchPattern As String, _
  ByVal ReplacePattern As String, Optional ByVal IngoreCase As Boolean = True) As String

'By Jing He 2017-9-1Dim regex As New RegExpWith regex.Global = True.MultiLine = True.IgnoreCase = IngoreCase.pattern = MatchPattern
End WithIf regex.Test(Text) ThenRegexReplace = regex.replace(Text, ReplacePattern)
ElseRegexReplace = "-"
End IfEnd Function