Excel 单元格中的文本部分着色

Question

我在 Excel 中有大量数据。我希望只为单元格中整个文本中的“ADC”文本着色，并在整个数据范围内动态执行相同操作。如果有办法，请帮助我。

Answer 1

这是一个小演示，您可以根据需要进行调整。它将检查单元格中的文本A1通过A10并全部着色模数转换器是红色。之前：

代码：

Sub ADC()
    Dim r As Range, s As String, L As Long, i As Long
    
    For Each r In Range("A1:A10")
        s = r.Text
        L = Len(s)
        If L > 2 Then
            For i = 1 To L - 2
                If Mid(s, i, 1) = "A" And Mid(s, i + 1, 1) = "D" And Mid(s, i + 2, 1) = "C" Then
                    r.Characters(i, 3).Font.Color = vbRed
                End If
            Next i
        End If
    Next r
End Sub

结果：

笔记：

1. 它不适用于公式单元格

Answer 2

您无法在 Excel 中部分着色/突出显示单元格。要解决此问题，请在单元格中插入一个形状并更改填充颜色。或者，如果您想添加其他文本，请删除之前的文本，然后插入一个文本框。