基于下拉列表单元格文本隐藏Excel列的代码实现求助

完整VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应C1单元格的内容变更
    If Not Intersect(Target, Me.Range("C1")) Is Nothing Then
        Dim targetCol As Range
        Dim searchValue As String
        Dim ws As Worksheet
        Dim col As Range
        
        Set ws = Me
        searchValue = ws.Range("C1").Value
        
        ' 先解除E:T列的所有隐藏状态，避免历史状态干扰逻辑
        ws.Range("E:T").EntireColumn.Hidden = False
        
        ' 若C1为空，直接显示E:T所有列
        If searchValue = "" Then
            Exit Sub
        End If
        
        ' 在E2:T2中精确匹配C1的文本值，锁定目标列
        Set targetCol = ws.Range("E2:T2").Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 遍历E:T列，隐藏非匹配列
        For Each col In ws.Range("E:T").Columns
            If col.Column <> targetCol.Column Then
                col.EntireColumn.Hidden = True
            End If
        Next col
    End If
End Sub

代码说明 #

• 触发逻辑：当C1单元格的下拉选项变更时自动执行（基于工作表Change事件）
• 核心流程：
  • 先重置E:T列的可见状态，避免原有隐藏列导致匹配逻辑出错
  • 空值处理：C1为空时直接显示所有E:T列
  • 精确匹配：在E2:T2中查找与C1完全一致的文本，定位目标列
  • 批量隐藏：遍历E:T的所有列，仅保留匹配列可见，其余全部隐藏
• 适配需求：无论E:T列初始状态是隐藏还是显示，最终都只展示与C1匹配的列

使用步骤 #

1. 按Alt + F11打开VBA编辑器
2. 在左侧工程面板双击目标工作表（如Sheet1）
3. 将上述代码粘贴到右侧代码窗口
4. 返回Excel，选择C1的下拉选项即可触发列的动态调整

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