excel表格列有很多单元格部分字体为红色怎么提取红色部分字体到相应单元格后面？

这个如果用VBA就很简单了：

在工作表名称上右键----查看代码，弹出VBA编辑窗口，

在左侧任意位置右键----插入---模块：

把下面的代码粘贴到右侧：

Sub 提取红色字符()

For n = 2 To [a65536].End(3).Row

For i = 1 To Len(Cells(n, 1))

If Cells(n, 1).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then

k = k & Mid(Cells(n, 1), i, 1)

End If

Next

Cells(n, 2) = k: k = ""

Next

End Sub

最后效果：

提取前：

提取后：

如果改变数据、目标列，请改变相应代码

无需VBA，把数据复制到WORD中，借助WORD中的查找功能就可以查找复制了。

在WORD中设置查找内容（格式）

选中查找到的内容，复制粘贴回EXCEL，完成。

如果数据区域在a:d列，选择数据区域，在“条件格式”中，“新建规则”，以“公式建立规则”，输入
=a1=max(a:d)
格式选择“字体”颜色红色，确定，即可。

需要用到VBA代码，你要吗？