重新改了代碼，之前的有點問題，已更新過了
我是菜鳥不知道可不可以幫到妳。
我是先錄制的宏，然後對錄制的宏進行了修改。
效果圖如下：
代碼圖如下：
在我畫紅框的區域的任意位置，點擊右鍵---插入模塊，
單擊模塊，在右側輸入代碼，該代碼的宏名稱為：填充顏色
在表格中插入壹個按鈕(窗體控件)，
在按鈕上點右鍵---指定宏---指定到“填充顏色”這個宏。
註意：
1、關鍵詞可以寫1至3個，而且三個詞不能相同。
2、如果A列的原數據中，壹個單元格裏出現多個相同的關鍵詞，那麽只能把第壹個填紅。
方便妳復制，貼出代碼如下：
Sub 填充顏色()
'還原之前顏色為黑色
Range("A1:A22").Font.ColorIndex = xlAutomatic
'將關鍵詞填充為紅色
Dim i As Integer
For i = 1 To 22
a = Evaluate("LEN(D2)")
b = Evaluate("Find(D2, A" & i & ")")
c = Evaluate("LEN(E2)")
d = Evaluate("Find(E2, A" & i & ")")
e = Evaluate("LEN(F2)")
f = Evaluate("Find(F2, A" & i & ")")
If a > 0 Then
Range("A" & i).Characters(Start:=b, Length:=a).Font.Color = -16776961
End If
If c > 0 Then
Range("A" & i).Characters(Start:=d, Length:=c).Font.Color = -16776961
End If
If e > 0 Then
Range("A" & i).Characters(Start:=f, Length:=e).Font.Color = -16776961
End If
Next
End Sub