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

【问题标题】：Vertical Filter in MS-Excel by colorMS-Excel中的垂直过滤器按颜色
【发布时间】：2019-03-03 15:11:40
【问题描述】：

有没有办法（不隐藏）但过滤excel中的列而不是行。

这是一个数据样本，它会继续下去。我需要能够说仅过滤红色列 - 仅显示红色列（可能还有绿色）以向我显示代码中需要修复哪些数据以及数据是什么。

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

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

谢谢。

【问题讨论】：

有颜色的列总是一样的吗？还是会根据内容而变化？
如果列总是相同的颜色，您可以考虑使用自定义视图，如果它们有条件地着色，则可以使用宏来隐藏列或取消隐藏列，实际上会很快
列可以根据数据改变颜色。
宏应该适用于你，但有时只能过滤单一颜色
谢谢，我将使用宏，因为这是我们必须即时完成的东西，希望有过滤器来快速打开和关闭数据。（也向对excel不友好的用户展示非常快速简单的格式更改）

标签： sql excel filter ms-office multiple-columns

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

【讨论】：