如何从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表示要从中提取文本的单元格），按 输入 键以获取所需的文本，然后拖动自动填充手柄将公式填充到所需的范围。

现在您可以看到所有红色文本均已提取。

Tips:：在上面的VBA代码中，您可以将这个脚本TextColor = RGB(255, 0, 0)中的颜色rgb更改为其他以满足您的需要。

相关文章：

• 仅在Excel中提取粗体文本

• 在Excel中提取十进制值

• 在Excel中提取中间名