excel VBA构造正则函数（双参数）

Function zhengze(ze As String, Rng As Range)
    Set regx = CreateObject("vbscript.regexp")

With regx

.Global = True

.Pattern = ze '写正则表达式
Set mat = .Execute(Rng)
For Each mg In mat
     If .test(Rng) Then
        zhengze = mg
     Else
        zhengze = 0
'Set mat = .Execute(value)



      'cells 单元格读取单元格内容，将内容写入单元格,将变量rg的值输入到c列的n行

    End If
   Next

End With
End Function

------------------------------------------------------------------------------------------------------------------------------------

if外置，无匹配值则返回空值，单引号后为注释内容，可忽略

-------------------------------------------------------------------------------------------------------------------------------------

Function zhengze(ze As String, Rng As Range)
    Set regx = CreateObject("vbscript.regexp")


With regx

.Global = True

.Pattern = ze '写正则表达式
Set mat = .Execute(Rng)
If .test(Rng) Then '无匹配值则为空

    For Each mg In mat
      'If .test(Rng) Then
        zhengze = mg

'Set mat = .Execute(value)

      'cells 单元格读取单元格内容，将内容写入单元格,将变量rg的值输入到c列的n行

     'End If
    Next
   Else
     zhengze = " "
   End If
End With
End Function

------------------------------------------------------------------------------------------------------------------------------------

匹配结果多个时，合并显示

==================================================================================

Function zhengze(ze As String, Rng As Range)
    Set regx = CreateObject("vbscript.regexp")


With regx

.Global = True

.Pattern = ze '写正则表达式
Set mat = .Execute(Rng)
If .test(Rng) Then '无匹配值则为空|匹配成功执行循环
    Dim m As String
    If mat.Count > 1 Then   '为多个匹配结果则合并显示，否则显示当前值
      For Each mg In mat

        m = m & mg & "|"    '循环并合并匹配结果

      Next
      zhengze = m
    Else
      zhengze = mat(0).value    '参数存储是一个列表形式，不能直接=号取值，必须用列表固有取值方式
    End If


   Else
     zhengze = " "
   End If
End With
End Function

巴特西

excel VBA构造正则函数（双参数）

最新文章

热门文章