vba - 使用 VBA 根据单元格值隐藏列

Question

我正在尝试根据单元格值隐藏列。该代码可以完美地隐藏行，但是当我尝试操作它来隐藏列时，它不起作用。有任何想法吗？

Sub HideColumns()

    Dim WS_Count As Integer
    Dim I As Integer
    Dim cell As Range

    WS_Count = ActiveWorkbook.Worksheets.Count
    For I = 1 To WS_Count

        For Each cell In Sheets(I).Range("P33:Y33")
            With cell
                .EntireColumn.Hidden = .Value = "HIDE"
            End With
        Next
    Next I
End Sub

Answer 1

将您的线路更改为 .EntireColumn.Hidden = True .

您不需要说值是隐藏的，只需 EntireColumn .