VBA检查包含特定文本的单元格的最短方法

Sub CheckCellsForText()
    Dim rng As Range
    Dim cell As Range
    Dim searchText As String
    Dim result As Boolean
    
    Set rng = Range("A1:A10") ' 指定要检查的单元格范围
    searchText = "特定文本" ' 指定要搜索的特定文本
    
    result = False ' 初始化结果为False
    
    For Each cell In rng
        If InStr(cell.Value, searchText) > 0 Then ' 使用InStr函数判断单元格值是否包含特定文本
            result = True
            Exit For ' 如果找到匹配的单元格，则退出循环
        End If
    Next cell
    
    If result Then
        MsgBox "存在包含特定文本的单元格。"
    Else
        MsgBox "不存在包含特定文本的单元格。"
    End If
End Sub