将有条件格式化的彩色行复制到另一张纸上

比较TAT值的天数后，我有excel spreadhseet，有条件地用不同的颜色格式化。

现在，我想将每个彩色的行复制到不同的工作表并命名工作表。

我同意这可以通过手动过滤颜色来实现，可以通过VBA代码来完成吗？

数据放置在工作表的第6行。

此外，条件格式化的颜色可能会在将来更改，因此代码应覆盖放置在不同工作表中的彩色行。

如果可以通过VBA代码实现，请确认并回复一个解决scheme。

请find下面的图片以获得更多的理解。

Answer 1

这应该是你的出发点。

Sub Test() Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$D$" & Range("A" & rows.count).end(xlUp).Row).AutoFilter Field:=1, Criteria1:=RGB(255, 0 _ , 0), Operator:=xlFilterCellColor Range("$A$1:$D$" & lastr).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy ThisWorkbook.Sheets.Add.Name = "Red" Sheets("Red").select Range("A" & Range("A" & rows.count).end(XlUp).row).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub