VBA 查找/替換和文本顏色更改

Question

我有一個包含三列的電子表格。 A 列中有一些句子（用黑色字體書寫）。 C 列有一個要搜索的術語列表。 D 列有一個替換術語列表（以紅色字體顏色書寫）。

我正在嘗試在 A 列中的句子中搜索 C 列中的搜索詞。 並且，如果 A 列包含 C 列中的任何搜索詞，請將 A 列中的文本替換為 D 列中的替換詞。

查找/替換功能效果很好。 但我無法讓 A 列中字符串的替換部分的字體顏色變為紅色。

有什么想法嗎？

這是我到目前為止的代碼。

Private Sub CommandButton1_Click()

For i = 3 To 6

     Worksheets("Sheet1").Range("A2:A35").Select

     Selection.Replace What:=Cells(i, 3).Value, Replacement:=Cells(i, 4).Value, _
     LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Next

Worksheets("Sheet1").Cells(1, 1).Select

End Sub

Answer 1

嘗試這個：

Private Sub CommandButton1_Click()

For i = 3 To 6

     Worksheets("Sheet1").Range("A2:A35").Select

     With Application.ReplaceFormat
       .Font.Color = vbRed
     End With

     Selection.Replace What:=Cells(i, 3).Value, Replacement:=Cells(i, 4).Value, _
     LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=True

Next

Worksheets("Sheet1").Cells(1, 1).Select

End Sub

微軟解釋：

設置用於替換單元格格式的替換條件。 然后在對 Range object 的 Replace 方法的后續調用中使用替換標准。