excel - 在 VBA excel 中隐藏列

Question

我的 1 个 Excel 工作簿中有 4 个工作表。我试图将 Sheet1、Sheet2 和 Sheet4 存储在数组中。然后，我希望程序隐藏数组中第 8 行中没有值“FY”的所有列。这样做的目的是能够轻松查看 FY 行，并使 Sheet3 不隐藏任何列.

这是 Excel 文件的屏幕截图:

这是我的代码片段:

Sub FY_HIDE222()    
    Dim keyCells As Range
    Dim ws As Variant
    ws = Array("Sheet1", "Sheet2", "Sheet4")

    For Each sh In ws
        For Each keyCells In ws.Range("C8:ZZ8").Cells
            If keyCells.Value <> "FY" Then
                keyCells.EntireColumn.Hidden = True
            End If
        Next keyCells
    Next sh
End Sub

我在这一行收到语法错误:

For Each keyCells In ws.Range("C8:ZZ8").Cells

说“keyCells = Nothing”...请协助我思考，因为我认为 keyCells 变量应该存储 FY、Q1、Q2 等。

Answer 1

尽可能简单

Dim wsName, i As Long, c As Range
wsName = Array("Sheet1", "Sheet2", "Sheet4")

    For i = LBound(wsName) To UBound(wsName)
        For Each c In Sheets(i).Range("C8:ZZ8")
            If c.Value <> "FY" Then c.EntireColumn.Hidden = True
        Next c
    Next i