Excel VBA检查行区域中的3个单元格包含字符串

Sub CheckStringInRow()
    Dim rng As Range
    Dim cell As Range
    Dim searchString As String
    Dim count As Integer
    
    ' 设置要查找的字符串
    searchString = "特定字符串"
    
    ' 设置要检查的行区域范围
    Set rng = Range("A1:C1")
    
    ' 初始化计数器
    count = 0
    
    ' 遍历行区域中的每个单元格
    For Each cell In rng
        ' 判断单元格的值是否包含特定字符串
        If InStr(1, cell.Value, searchString, vbTextCompare) > 0 Then
            ' 如果包含特定字符串，则增加计数器
            count = count + 1
        End If
    Next cell
    
    ' 输出结果
    MsgBox "行区域中包含特定字符串的单元格数量为：" & count
End Sub