Excel VBA基于应用的条件格式选择单元格

Question

我正在观看大量视频，解释选择单元格的代码，但我无法弄清楚如何完成以下操作。有人能提供帮助吗？

选择列A中已应用条件格式的所有单元格。将会有红色的细胞和没有的细胞。它们将按单元格颜色排序，顶部为红色。我只想复制红色＆＃34;行＆＃34;到一个新的工作表。

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

和平与尊重，

Answer 1

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

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

他建议使用自动过滤器并按颜色过滤，仅显示您要查找的颜色。

示例：

Dim rng As Range
Set rng = ActiveSheet.Range("A1:A11")

rng.AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor

它并不完美，您可能需要关闭屏幕更新以防止闪烁，但它应该可以解决问题。

马立克