当文本在单元格中具有“*”时，将字体颜色更改为红色 - Excel

Question

在一个单元格中，我有一个值，例如：“世界不公平*”

• 在本文中，我想将字体颜色仅更改为红色*
• *将是我的最后一封信

提前致谢

Answer 1

此代码将为单元格红色的最后一个字符着色：

Range("A1").Characters(Len(Range("A1"))).Font.ColorIndex = 3

Len（）给出字符数，然后Characters（）引用最后一个字符。

Answer 2

对于一系列细胞，您可以尝试这样的

Sub UpdateRange()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = [a1:a10]
For Each rng2 In rng1
If Len(rng2.Value) > 0 Then
    If Right$(rng2.Value, 1) = "*" Then rng2.Characters(Len(rng2.Value)).Font.Color = vbRed
End If
Next
End Sub

Answer 3

您可以使用条件格式来执行此操作。

您需要选择“使用公式来确定要格式化的单元格”选项。

然后输入此公式 - 取决于它是哪个单元格。

= RIGHT（A1,1）= “*”

然后单击格式并选择字体并选择红色。