更改单元格区域中特定字符的字体颜色

我想改变单元格范围内特定字符的字体颜色。 我想出了如何为单个单元格（代码附加）做到这一点，但我无法弄清楚如何在一个完整的单元格上做到这一点; B8：F12。 谁能帮忙？

谢谢！

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim FindChar As String Dim SearchString As String SearchString = Range("B8").Value FindChar = Chr(182) For i = 1 To Len(SearchString) If Mid(SearchString, i, 1) = FindChar Then Range("B8").Characters(i, 1).Font.Color = RGB(221, 221, 221) End If Next i End Sub 

Answer 1

 Sub ChangeColorIfMatchesCondition(byval cell as Range) Dim i As Integer Dim FindChar As String Dim SearchString As String SearchString = cell.Value FindChar = Chr(182) For i = 1 To Len(SearchString) If Mid(SearchString, i, 1) = FindChar Then cell.Characters(i, 1).Font.Color = RGB(221, 221, 221) End If Next i End Sub Sub LoopAndChangeColorForThisRange() dim cell dim targetRange as Range set targetRange = me.Range("B8:F12") for each cell in targetRange.Cells ChangeColorIfMatchesCondition cell next End Sub 

调用LoopAndChangeColorForThisRange ，看看它是否工作，如你所料。