根據其值選擇某些列

Question

我已經建立了一個包含所有查詢的電子表格。

我想選擇所有列，例如使用“B”。我的主要目標是讓所有已預訂的人快速度過一個夏天。然後，如果我想查看所有查詢，我可以只選擇“E”列，然後它將隱藏我所有的取消和預訂。

Answer 1

我了解您希望隱藏第一個單元格不包含“E”或“B”的所有列。這需要 VBA 巨集。

第一步是將電子表格儲存為.xlsm允許 VBA 巨集，然後使用 Excel 開啟它。

鍵入Alt+F11開啟 VBA 編輯器。右鍵點選“Sheetl (Sheetl)”或“ThisWorkbook”並選擇 插入 > 模組。

將以下文字複製並貼上到編輯器中：

Sub Hide_Columns_Not_A()
Dim c As Range
For Each c In Range("A1:E1").Cells
    If c.Value <> "A" Then
        c.EntireColumn.Hidden = True
    Else
        c.EntireColumn.Hidden = False
    End If
Next c
End Sub

Sub Hide_Columns_Not_E()
Dim c As Range
For Each c In Range("A1:E1").Cells
    If c.Value <> "E" Then
        c.EntireColumn.Hidden = True
    Else
        c.EntireColumn.Hidden = False
    End If
Next c
End Sub

Sub Unhide_All_Columns()
Dim c As Range
For Each c In Range("A1:E1").Cells
    c.EntireColumn.Hidden = False
Next c
End Sub

重要的：將上述文本中所有三個出現的 更改A1:E1 為實際範圍，在您的情況下似乎至少是A1:U1。

然後按Ctrl+S儲存電子表格，然後按 Alt+Q關閉 VBA 編輯器並返回 Excel。

從現在開始您可以前往開發商窗格，按一下宏這將顯示三個已定義的巨集，選擇您想要的並單擊 跑步。