要使用VBA在Excel中判断一段话是否含有特定的一些关键词，并在相应的单元格中做标记，可以按照以下步骤操作：

打开Excel中的VBA编辑器（按 Alt + F11）。插入一个新模块（右键点击VBA项目，选择 插入 > 模块）。在新模块中，复制并粘贴以下代码：Sub CheckForKeywords() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称 Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Dim i As Long Dim keywords As Variant keywords = Array("关键词1", "关键词2", "关键词3") ' 修改为你的关键词 For i = 1 To lastRow Dim cellText As String cellText = ws.Cells(i, 1).Value ' 假设文本在列A Dim keyword As Variant For Each keyword In keywords If InStr(cellText, keyword) > 0 Then ws.Cells(i, 2).Value = "√" ' 假设标记在列B Exit For End If Next keyword Next iEnd Sub注意事项确保将代码中的 "Sheet1" 替换为你实际使用的工作表名称。keywords = Array("关键词1", "关键词2", "关键词3") 中的关键词列表可以根据你的需要进行修改。此脚本假设文本数据在第1列（A列），标记将放在相邻的第2列（B列）。如果你的数据在其他列，需要相应地调整 ws.Cells(i, 1).Value 和 ws.Cells(i, 2).Value 中的列号。

这段代码将遍历工作表中每行的第1列，检查是否包含指定的关键词，如果包含，则在同一行的第2列中标记“√”。