EXCEL如何实现同一单元格内不同的颜色显示（公式）

如果用公式，应该没办法部分显示其他颜色。如果是字体，双击单元格选择部分字体，然后选择设置对应颜色即可。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim m%, n%, i%
    i = Target.Row
    If Target.Column = 11 Then
        On Error Resume Next
        m = WorksheetFunction.Search(";", Range("K" & i))
        If Err.Number Then
            m = Len(Range("K" & i).Value) + 1
            Range("K" & i).Characters(Start:=1, Length:=m - 1).Font.Color = -16776961
        End If
        n = WorksheetFunction.Search(";", Range("K" & i), m + 1)
        If Err.Number Then n = Len(Range("K" & i).Value) + 1
        On Error GoTo 0
        Range("K" & i).Characters(Start:=1, Length:=m - 1).Font.Color = -16776961
        Range("K" & i).Characters(Start:=m + 1, Length:=n - m - 1).Font.Color = -16776961
    End If
End Sub