如何基于多种颜色文本的单元格中的字体颜色提取文本

我有一列数据（A）。 列（A）中每个单元格中的数据是半个颜色和另一个颜色。 例如，假设string的第一部分是红色，而string的第二部分是黑色的。 每个单元格中红色和黑色string的长度随模式而变化。 红色和黑色字符的types因没有图案而变化。 没有空格或特殊字符将红色字符与每个单元格中的黑色字符分开。 我想提取并使用公式或函数将每个单元格中的红色字符复制到新列（B）中。 build议？

（A）原件……….（B）红色

abjksglkjaf ………. abjk

kjd3kdn9j ………… kjd3kd

2hn89dslkjh ………. 2HN

Answer 1

您可以使用这个用户定义的function：

Function redPart(x As Range) As String Dim res As String With x For i = 1 To Len(.Value) ' red = RGB(255, 0, 0) If .Characters(i, 1).Font.Color = RGB(255, 0, 0) Then res = res & .Characters(i, 1).Text End If Next End With redPart = res End Function 

只需在单元格B1公式=redPart(A1)写入并将其向下拖动即可。

结果：