text 范囲内で正规表现に一致するセルを返す（最初のセル）

Posted 2021-05-01

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了text 范囲内で正规表现に一致するセルを返す（最初のセル）相关的知识，希望对你有一定的参考价值。

Function FindCellByRegExp(findRange, expressionStr As String)
    
    Dim objIE As Object
    Dim RE
    Set RE = CreateObject("VBScript.RegExp")
    RE.Global = True
    RE.Pattern = expressionStr
    
    For Each eachCell In findRange
        
        If RE.test(eachCell.Value) Then
                
            Set FindCellByRegExp = eachCell
            Exit Function
            
        End If
    
    Next
    
    Set FindCellByRegExp = Nothing
        
End Function

以上是关于text 范囲内で正规表现に一致するセルを返す（最初のセル）的主要内容，如果未能解决你的问题，请参考以下文章