EXCEL 提取表中有颜色的行至另一个表

sheet1中，若干行为黄色（例如3、5、13、25、46....），若干行为红色（例如8、22、56...）
要将sheet1中黄色的行提取至sheet2，红色的行提取至sheet3
求高人指点

---

2007及其以上版本悔散可以按底纹颜色排序 排序后集中到一起碧桐氏组成连续单元格轮雀区域 再复制 粘贴到另一个工作表中

---

Sub test()
With Worksheets("sheet1")
    For i = 1 To 搜改.UsedRange.Rows.Count
        If Cells(i, 1).Interior.Color = vbYellow Then
            .Rows(i).Copy Worksheets("sheet2").[a65536].End(xlUp).Offset(1, 0)
     顷漏码   ElseIf Cells(i, 1).Interior.Color = vbRed Then
       雀哪     .Rows(i).Copy Worksheets("sheet3").[a65536].End(xlUp).Offset(1, 0)
        End If
    Next
End With
End Sub

---

Excel 2007 可以按颜色祥灶来咐宴仔筛选的衡汪。

---

筛选是最简单的了

---