excel - 是否可以通过 VBA 中的内容找到单元格？

Question

我希望找到包含给定文本的单元格(作为范围)。那有可能吗？我希望能够找到与文本匹配的第一个单元格(遵循行和列的自然顺序)。

然后，一个更高级的问题，我可以提供一个正则表达式来做同样的事情吗？

感谢你们 :)

Answer 1

这是一个示例代码。替换 Range("A1:D10")用你的范围，并用你自己的替换正则表达式模式 ni 函数 RE6。

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