如何根据单元格值隐藏/显示指定列？寻求Excel实现方案

可以通过Excel VBA的工作表变更事件实现需求，以下是具体代码和操作步骤：

操作步骤 #

1. 打开目标Excel文件，按下 Alt + F11 打开VBA编辑器
2. 在左侧工程窗口中找到需要实现功能的工作表（比如Sheet1），双击打开代码窗口
3. 粘贴下方代码，将文件保存为**启用宏的工作簿（.xlsm）**格式

实现代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当B2单元格值变化时触发逻辑
    If Target.Address = "$B$2" Then
        ' 先隐藏所有列
        Columns.Hidden = True
        
        Select Case Target.Value
            Case "Démission"
                ' 显示J至O列、AE至AK列
                Columns("J:O").Hidden = False
                Columns("AE:AK").Hidden = False
            Case "Retraite"
                ' 显示I列、P至W列
                Columns("I:I").Hidden = False
                Columns("P:W").Hidden = False
            Case "Fin de mandat"
                ' 显示H列、X至AD列
                Columns("H:H").Hidden = False
                Columns("X:AD").Hidden = False
            Case Else
                ' 若B2为其他值，显示所有列（可按需删除此分支）
                Columns.Hidden = False
        End Select
    End If
End Sub

代码说明 #

• 代码绑定在工作表的Worksheet_Change事件上，只有B2单元格值发生变化时才会执行
• 执行逻辑为先隐藏所有列，再根据B2的匹配值显示指定列
• 需保证B2的输入值与代码中的字符串完全匹配（包括法语重音、大小写）

注意事项 #

• 文件必须保存为.xlsm格式，否则宏无法保存和运行
• 打开文件时需启用宏才能触发功能

内容的提问来源于stack exchange，提问作者Mous