EXCEL怎样筛选出不同颜色字体的选项

在一张表格中有黑色和红色的不同的行，现在想选出红色字体的那些行，请问有什么方法呢？

Sub mxbing1984()
Sheet2.Cells.Clear
Sheet3.Cells.Clear
Sheet2.Range("A1").Value = "hongse"
Sheet3.Range("A1").Value = "qitase"
R = Sheet1.Range("A65535").End(xlUp).Row
For i = 3 To R
Sheets("Sheet1").Select
Sheet1.Range("A" & i).Select
If Selection.Font.ColorIndex = 3 Then
Sheet1.Rows(i).Select
Selection.Copy
Sheets("Sheet2").Select
x = Sheet2.Range("A65535").End(xlUp).Row
x = x + 1
Sheet2.Range("A" & x).Select
ActiveSheet.Paste
Else
Sheet1.Rows(i).Select
Selection.Copy
Sheets("Sheet3").Select
y = Sheet3.Range("A65535").End(xlUp).Row
y = y + 1
Sheet3.Range("A" & y).Select
ActiveSheet.Paste

End If
Next
Sheets("Sheet1").Select
Application.CutCopyMode = False
Sheet1.Range("A1").Select
Z = MsgBox("OK", vbInformation + vbOKOnly, "Microsoft Excel 5.0")
End Sub

excel2007可以按单元格颜色、字体颜色或图标进行排序，建议下载excel2007再筛选！！ 如果一定要用excel2003，需要添加辅助列，用宏表函数的方法得到对应的颜色号，然后对辅助列进行排序： 颜色单元格在A列，选中B1,插入->名称->定义，输入a，下面输入公式 =get.cell(24,$a1)，此法可得到字体色的序列号 B1输入 =a 将公式向下复制到相应行。 将全表按B列排序即可。

EXCEL2007里的右键菜单 【排序】里有“将所选字体颜色放在最前面”

还有更多的根据颜色排序的功能

EXCEL2003是没有的