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

Posted 2021-05-01

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