Excel VBA 根据应用的条件格式选择单元格

【问题标题】：Excel VBA Select Cells based on Conditional Formatting appliedExcel VBA 根据应用的条件格式选择单元格
【发布时间】：2015-01-29 13:03:59
【问题描述】：

我正在观看大量视频，解释用于选择单元格的代码，但我不知道如何完成以下操作。谁能提供帮助？

选择 A 列中应用了条件格式的所有单元格。会有红色的单元格和不是的单元格。它们将按单元格颜色排序，顶部为红色。我只想将红色的“行”复制到新的工作表中。

我需要每次都复制整行，但条件格式的行数会因工作表而异，所以我需要某种循环，我认为它会停在第一行不是红色的行。

和平与尊重，

【问题讨论】：

标签： vba excel

【解决方案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

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

马雷克

【讨论】：