根据Excel中的单元格值隐藏列

Sub HideColumnBasedOnCellValue()
    Dim ws As Worksheet
    Dim targetCell As Range
    Dim targetColumn As Range
    Dim cellValue As Variant

    ' 设置工作表和目标单元格
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 请根据需要修改工作表名称
    Set targetCell = ws.Range("A1") ' 请根据需要修改目标单元格地址

    ' 获取目标单元格的值
    cellValue = targetCell.Value

    ' 根据单元格值设置要隐藏的列
    Select Case cellValue
        Case "隐藏列B"
            Set targetColumn = ws.Columns("B")
        Case "隐藏列C"
            Set targetColumn = ws.Columns("C")
        ' 在此处添加更多情况
        Case Else
            ' 如果没有匹配的情况，不隐藏任何列
            Exit Sub
    End Select

    ' 隐藏目标列
    targetColumn.Hidden = True
End Sub