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

Question

如题所述

Answer 1

这个如果用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

最后效果：

提取前：

提取后：

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

Answer 2

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

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

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

追问

方法可以就是复制回去顺序会乱！

本回答被网友采纳

Answer 3

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

Answer 4

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

宏指令？还是啥？给我一个谢谢！

追答Sub 提取红色()
Dim i%, k%
i = [a65536].End(3).Row
For k = 1 To i
    If Cells(k, 1).Font.ColorIndex = 3 Then
        Cells(k, 2) = Cells(k, 1)
    End If
Next
End Sub

追问

／尴尬　　　看不懂我！

追答

代码的功能如图片，将A列里字体颜色为红色的单元格中的数据提取到B列对应的单元格中。
暂时看不懂无所谓，会用就行。

追问

看私信

本回答被提问者采纳