Question

我已将条件格式设置应用于Excel中的数据透视表的列，该列自动将大于特定值的单元格用红色着色。

我还想将这些红色单元格分别提取到同一个工作表中的特定区域。

是否可以通过使用宏或“＆＃39; if＆＃39;条件会有帮助吗？

Answer 1

您的条件格式参数是什么？您可以以编程方式使用相同的逻辑。或者，您可以编写代码来检查单元格的颜色。

'specify the cell you want the color for
x = InputBox("what cell")
Range("a1") = Range(x).Interior.Color


If Range(x).Interior.Color = Range("a1") Then
MsgBox "yes the color is right"
End If

表示数据透视表示例

'where cell is something your looking for that is in the cell
 ActiveSheet.PivotTables("PivotTable1").PivotSelect "'cell'", xlDataAndLabel + xlFirstRow, True
 x = Selection.Interior.Color

如何在数据透视表中提取特定颜色的单元格？

1 个答案: