如何在Microsoft Excel中更改特定字符的颜色

Question

对不起，我对此感到陌生。请原谅任何无知。

我有一个包含在B，d，F和H.

这些字符的范围从0-9和A-Z（二者上壳体和下壳体）的列数随机字符的表。

我想找到每个列中的所有相似字符并更改它们的颜色。我想对每个可用字符重复此操作。有人可以帮帮我吗？

我在前面发现了this link，这与我正在尝试做的非常接近。

这是受访者表示会工作的代码。

Sub Test1() 
Application.ScreenUpdating = False 
Dim cell As Range, i As Integer, cellVal As String 
With Columns(1) 
.SpecialCells(2, 3).Font.ColorIndex = 1 
For Each cell In .SpecialCells(2, 3) 
cellVal = cell.Text 
For i = Len(cellVal) To 2 Step -1 
If cell.Characters(i, 1).Text = "s" Then cell.Characters(i, 
1).Font.ColorIndex = 3 
Next i 
Next cell 
End With 
Application.ScreenUpdating = True 
End Sub 

当我尝试这是犯规影响我的表中的字符。

感谢您的帮助。

Answer 1

上面的代码只会将第一个字符后的第一列中的值更改为红色，如果它是“s”。 我改变了上面的代码，我觉得这是更你想要什么：

Sub ChangeCellCharacterColors() 
Dim cell As Range, i As Integer, cellVal As String 
For Each cell In Worksheets("Sheet1").Range("A1:D10").Cells 'Enter sheet name and range of cells to iterate through 
cellVal = cell.Text 
    For i = 1 To Len(cellVal) 
     If cell.Characters(i, 1).Text = "B" Then cell.Characters(i, 1).Font.ColorIndex = 4 'Identify character "B" and color index 4(green) 
     If cell.Characters(i, 1).Text = "D" Then cell.Characters(i, 1).Font.ColorIndex = 2 
     If cell.Characters(i, 1).Text = "F" Then cell.Characters(i, 1).Font.ColorIndex = 3 
     If cell.Characters(i, 1).Text = "H" Then cell.Characters(i, 1).Font.ColorIndex = 5 
    Next i 
Next cell 
End Sub 

参考老答案：

您可以创建其颜色基于包含在特定文本的单元格显示规则细胞。

选择要格式化

首页 - >条件formatting->新规则>格式只包含细胞的细胞。

然后将“单元格值”更改为“特定文本”。

'Format ...'按钮来更改颜色填充