如何根据Excel单元格中的字体颜色提取文本？

如果在Excel中有一个数据列表，每个单元格中都包含一些红色文本（如下图所示），你知道如何仅提取红色文本吗？现在我将介绍一种快速方法来解决这个难题，即根据Excel单元格中的字体颜色提取文本。

从每个单元格中根据字体颜色提取文本

从每个单元格中根据字体颜色提取文本

在Excel中，你只能使用自定义函数根据字体颜色提取文本。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下VBA代码复制到弹出的窗口中。

VBA：根据字体颜色提取文本

Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
  If pRange.Characters(i, 1).Font.Color = TextColor Then
  xOut = xOut & VBA.Mid(xValue, i, 1)
  End If
Next
GetColorText = xOut
End Function

3. 然后保存并关闭对话框，在数据列表旁边选择一个空白单元格，输入公式 =GetColorText(A1) （A1 表示要提取文本的单元格），按 Enter 键获取所需文本，然后拖动自动填充柄将公式填充到所需的区域。

现在你可以看到所有红色文本都被提取出来了。

提示：在上述VBA代码中，你可以更改此脚本中的颜色RGB值 TextColor = RGB(255, 0, 0) 以满足你的需求。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 仅在Excel中提取粗体文本

• 在Excel中提取小数值

• 在Excel中提取中间名字