excel中 怎么按 字体彩色 提取

Question

是03版的 数千行文字中 有一部分是红色字 其余是黑色 只有一列 怎么把红色都提取出来 拜托说详细点 易懂点

Answer 1

03、07、10版通用
1、选择该列的任一个单元格，点击查找---选项----格式---字体----颜色，选择红色，确定，点击查找全部，按ctrl+all,退出查找；
2、此时该列所有红色字体的单元格都已经被选择，右键点击其中一个，选复制，在想要粘贴的地方右键点击，选粘贴，ok，完成了。追问

按ctrl+all？ alt也不对啊 这里弄不明白呢

追答

其实就是ctlr+a

Answer 2

1. 编辑/寻找/格式/选择字体颜色为红色
2. 全部寻找/ 下面会出来区域
3. 全选所出来的区域(寻找到的)
-------

然后,复制 ,粘贴!

---------------

你可以录制宏

以下是我录 的

With Application.FindFormat.Font
.Subscript = False
.ColorIndex = 3
End With
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
-------------------
以上,我是设的,当为红色时,选取后复制本回答被网友采纳

Answer 3

　　制作一个VB程序来解决：
　　Sub tqhs()
Dim Myr%, x%, n%, aa, y%, col%, Myc%
Application.ScreenUpdating = False
Myr = [a65536].End(xlUp).Row
For x = 1 To Myr
col = 2
aa = Len(Cells(x, 1))
For y = 1 To aa
If Cells(x, 1).Characters(y, 1).Font.ColorIndex = 3 Then
n = 1
Cells(x, col) = Cells(x, col) & Cells(x, 1).Characters(y, 1).Text
ElseIf n = 1 Then
col = col + 1: n = 0
End If
Next y
Next x
Myc = [a1].CurrentRegion.Columns.Count
Range(Cells(1, 2), Cells(Myr, Myc)).Font.ColorIndex = 3
Application.ScreenUpdating = True
End Sub

Answer 4

使用宏表函数中的get.cell(24),插入辅助列，然后根据get.cell(24)返回的不同值进行筛选！

Answer 5

ctrl+h 设置查找的元素的样式，就可以了