在Excel中，可以使用VBA代码来判断一个单元格是否包含一个特定的字符串。下面是一个示例代码：

Sub CheckStringInCell()
    Dim searchString As String
    Dim cellValue As String
    
    ' 设置要查找的字符串
    searchString = "example"
    
    ' 获取要检查的单元格的值
    cellValue = ActiveSheet.Range("A1").Value
    
    ' 判断单元格的值是否包含要查找的字符串
    If InStr(cellValue, searchString) > 0 Then
        MsgBox "单元格包含指定的字符串"
    Else
        MsgBox "单元格不包含指定的字符串"
    End If
End Sub

在上面的示例中，首先定义了要查找的字符串searchString和要检查的单元格的值cellValue。然后使用InStr函数来判断cellValue中是否包含searchString。如果InStr函数返回的结果大于0，则表示单元格包含指定的字符串，弹出一个消息框显示"单元格包含指定的字符串"；否则，弹出一个消息框显示"单元格不包含指定的字符串"。