如何用Excel公式实现单单元格文本分半显示红、蓝两种字体颜色？

Excel内置公式没法直接让单个单元格里的部分文本显示不同颜色，因为公式仅返回纯文本内容，不包含格式信息。要实现你要的效果，有两种实用方案：

方案一：手动设置字符格式（适合内容不常更新的场景） #

1. 先用你的公式生成目标文本：

   ="ERRORS ("& COUNTIF(D17:D,"=Fail") &") & WARNINGS ("& COUNTIF(D17:D,"=Pass") &")"
   

2. 选中该单元格，双击进入编辑状态，选中ERRORS (X)（X为统计出的数字）部分，在顶部菜单栏选择红色字体；
3. 再选中& WARNINGS (X)部分，选择蓝色字体即可完成设置。

方案二：VBA代码实现动态更新（适合数据频繁变化的场景） #

如果D列数据经常变动，想要颜色自动同步更新，可以用VBA代码实现：

1. 按下Alt + F11打开VBA编辑器；
2. 双击你要操作的工作表（比如Sheet1），粘贴以下代码：

   Sub SetCellTextColor()
       Dim targetCell As Range
       Dim textContent As String
       Dim splitPos As Integer
       
       ' 替换为你要显示结果的单元格，比如A1
       Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
       
       ' 生成目标文本内容
       textContent = "ERRORS (" & Application.WorksheetFunction.CountIf(Range("D17:D"), "=Fail") & ") & WARNINGS (" & Application.WorksheetFunction.CountIf(Range("D17:D"), "=Pass") & ")"
       
       ' 定位" & "的位置，用于分割前后文本
       splitPos = InStr(textContent, " & ")
       
       ' 将文本写入目标单元格
       targetCell.Value = textContent
       
       ' 设置前半部分为红色
       targetCell.Characters(Start:=1, Length:=splitPos - 1).Font.Color = RGB(255, 0, 0)
       ' 设置后半部分为蓝色
       targetCell.Characters(Start:=splitPos, Length:=Len(textContent) - splitPos + 1).Font.Color = RGB(0, 0, 255)
   End Sub
   

3. 若需要D列数据变化时自动触发颜色更新，再粘贴这段事件代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 当D17到D列的数据变动时，自动执行颜色设置
       If Not Intersect(Target, Range("D17:D")) Is Nothing Then
           Call SetCellTextColor
       End If
   End Sub
   

4. 返回Excel界面，按下Alt + F8，选择SetCellTextColor执行宏，即可看到效果。

内容的提问来源于stack exchange，提问作者Ali Raza Arain