Question

I wish to find cells (as a Range) that contain a given text. Is that possible to do ? I’d like to be able to find the first cell matching the text (following the natural order on rows and columns).

Then, a more advanced question, could I provide a Regex to do the same ?

Thank you guys 🙂

Answer 1

Here is a sample code. Replace Range("A1:D10") with your range, and replace the regular expression pattern ni function RE6 with your own.

Sub SUB1()
    For Each c In Worksheets("Sheet1").Range("A1:D10").Cells
        If RE6(c.Value) Then 
             c.Interior.ColorIndex = 7
        END IF
    Next
End Sub

    Function RE6(strData As String) As String 
        Dim RE As Object, REMatches As Object 

        Set RE = CreateObject("vbscript.regexp") 
        With RE 
            .MultiLine = False 
            .Global = False 
            .IgnoreCase = True 
            .Pattern = "[0-9][0-9][0-9][0-9][0-9][0-9]" 
        End With 

        Set REMatches = RE.Execute(strData) 
        RE6 = REMatches(0) 

    End Function