MS-Excel中按颜色的垂直过滤器

Question

是否有一种方法（不是隐藏）而是过滤excel中的列而不是行。

这是数据样本，将继续进行下去。我需要能够说只过滤红色的列-仅显示红色的列（可能还显示绿色），以告诉我哪些数据需要固定在代码中以及什么是数据。

隐藏，取消隐藏和移调需要时间和精力，而且我不想花太多时间做这些工作。我需要能够将其打开并快速关闭过滤器，以确认如何更新其他值。

我不反对使用VBA或代码，但是我需要它在两个状态之间快速转换。

谢谢。

Answer 1

如果您的列的颜色不变，请浏览自定义视图。

这可能无法满足您的要求，但是会隐藏颜色与活动单元格不匹配的每一列。再次运行将取消隐藏所有内容。如果愿意，可以将列的范围调整为较小的范围

Dim rng As Range
Dim color As String
color = ActiveCell.Interior.color
 For Each rng In Range("A:IV").Columns
  If rng.Interior.color <> color And rng.EntireColumn.Hidden = False Then rng.EntireColumn.Hidden = True Else rng.EntireColumn.Hidden = False
 Next rng