excel - 如何隐藏过滤器列表中没有值的excel中的列？

Question

我有一个包含各种化学品及其规格的大型电子表格；但是，并非每种化学品都需要每列中的值，因此有很多空白单元格。我想知道当我从下拉列表过滤器中选择列时，如果列中没有值，我是否可以做些什么来隐藏它？

例如，我单击下拉列表并选择“氢氧化钾”，我希望它隐藏“水分”列，因为其中没有值。

现在的样子：

我之前尝试过使用一些 VBA 代码，但我似乎不知道如何将其合并到下拉列表过滤器中。

标签： excelvba

Answer 1

不幸的是，没有Event应用/更改过滤器来触发宏。但是，您可以操纵Event, Worksheet_Calculate, 来获得所需的结果，因为修改过滤器会计算工作表。IE每次工作表计算，都会触发宏！

---

所以现在我们需要将过滤器链接到计算。任何方程都可以做到这一点，所以我只是在我的例子中设置K1= 。L1理想情况下，这将是看不见的地方（理想情况下，在您上次使用的列标题旁边，以避免隐藏未使用的列）

---

该宏通过仅计算可见行Aggregate的非空单元格实例来利用该函数。应用过滤器时，任何只有 1 个可见单元格的列都将被隐藏。我们将其用作基线，因为由于标题，所有列都至少有 1 个可见单元格。 1

将以下代码粘贴到工作表上的 VBE 中Specifications。这在模块或工作簿模板中不起作用。

Option Explicit

Private Sub Worksheet_Calculate()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Specifications")
Dim LCol As Long: LCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

On Error GoTo SafeExit

Dim HeaderCell As Range

Application.ScreenUpdating = False
    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False

    For Each HeaderCell In ws.Range(ws.Cells(1, 1), ws.Cells(1, LCol))
        If Application.WorksheetFunction.Aggregate(3, 7, HeaderCell.EntireColumn) = 1 Then
            HeaderCell.EntireColumn.Hidden = True
        End If
    Next HeaderCell

SafeExit:
Application.ScreenUpdating = True

End Sub

---

TLDR

确保 Sheet 至少有 1 个方程。当您应用/修改过滤器时，您会强制进行计算。当您强制计算时，您会触发宏。当您触发宏时，您会隐藏所有只有 1 个可见单元格的列（这将是标题）。

如果这运行缓慢，您可以将您的范围添加到Union列中，并在Union循环完成后隐藏（所有符合您条件的列）。