Excel VBAselect基于条件格式的单元格

我正在观看很多video，解释select单元格的代码，但是我不知道如何完成以下操作。 任何人都可以提供帮助？

select列A中具有应用条件格式的所有单元格。 将会有红色的细胞和不是的细胞。 它们将按照单元格颜色进行sorting，顶部是红色。 我只想将红色的“行”复制到新的工作表中。

我需要每次复制整个行，但条件格式化的行数将从工作表改变到工作表，所以我需要某种循环，我认为这将停止在不是红色的第一行。

和平与尊重，

Answer 1

这是一个有趣的问题，没有简单的解决scheme，只是解决方法。

我发现最简单的是我在微软论坛上发现的steffan z的方法​​（链接在这里 ）

他build议使用Autofilter并按颜色进行过滤，只显示您正在寻找的颜色。

例：

Dim rng As Range Set rng = ActiveSheet.Range("A1:A11") rng.AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor 

这不是完美的，你可能需要closures屏幕更新，以防止闪烁，但它应该做的伎俩。

马雷克