您可以使用以下代码来改变包含关键字的行的颜色：
Sub ChangeColorBasedOnKeyword()
Dim keyword As String
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
' 设置关键字
keyword = "关键字"
' 设置要修改的工作表
Set ws = ThisWorkbook.Worksheets("Sheet1")
' 设置要搜索的范围
Set rng = ws.UsedRange
' 循环遍历范围内的每个单元格
For Each cell In rng
' 检查单元格的值是否包含关键字
If InStr(1, cell.Value, keyword, vbTextCompare) > 0 Then
' 如果包含关键字，则修改该行的颜色
cell.EntireRow.Interior.Color = RGB(255, 0, 0) ' 这里使用了红色作为示例颜色
End If
Next cell
End Sub
请将上述代码复制到 Excel 的 VBA 编辑器中 (按下 ALT + F11 打开 VBA 编辑器)，然后在关键字 关键字 处替换为您要查找的具体关键字，并在 Set ws = ThisWorkbook.Worksheets("Sheet1") 中将 Sheet1 替换为您要修改的工作表的名称。
运行宏后，它将遍历工作表的范围，如果某个单元格的值包含关键字，它将修改该行的颜色。在示例代码中，行的颜色被设置为红色（RGB(255, 0, 0)），您可以根据需要进行修改。
请注意，宏将在所有包含关键字的行上更改颜色，因此请谨慎使用以避免错误修改。建议在运行宏之前先备份您的工作表。