如何在VBA中做“如果单元格包含”

Sub CheckCellContains()
    Dim cell As Range
    Dim searchText As String
    
    searchText = "关键词" ' 设置要搜索的关键词
    
    For Each cell In Selection ' 遍历选定的单元格范围
        If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then
            ' 如果单元格中包含关键词，则执行相应的操作
            ' 可以在这里编写你想要执行的代码
            MsgBox "单元格 " & cell.Address & " 包含关键词 " & searchText
        End If
    Next cell
End Sub