Excel VBA实现按产品类型隐藏/显示行需求及代码咨询

核心思路 #

抛弃那些带冗余密码保护的过时代码，用Worksheet_Change事件（比你之前用的SelectionChange更精准，仅在B1内容变更时触发）就能简单实现需求。

操作步骤 #

1. 打开VBA编辑器：按下Alt+F11组合键
2. 在左侧「工程资源管理器」中找到目标工作表（比如Sheet1），双击打开代码编辑窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应B1单元格的内容变化
    If Not Intersect(Target, Me.Range("B1")) Is Nothing Then
        ' 关闭屏幕刷新，避免操作时的闪烁
        Application.ScreenUpdating = False
        
        ' 强制前10行始终可见
        Me.Rows("1:10").Hidden = False
        
        Select Case UCase(Me.Range("B1").Value)
            Case "RED"
                ' 选择Red时：显示11-31行，隐藏32-52行
                Me.Rows("11:31").Hidden = False
                Me.Rows("32:52").Hidden = True
            Case "BLUE"
                ' 选择Blue时：显示32-52行，隐藏11-31行
                Me.Rows("32:52").Hidden = False
                Me.Rows("11:31").Hidden = True
            Case Else
                ' 若B1为空或输入其他值，默认显示所有行（可根据需求删除此分支）
                Me.Rows("11:52").Hidden = False
        End Select
        
        ' 恢复屏幕刷新
        Application.ScreenUpdating = True
    End If
End Sub

代码关键说明 #

• Intersect(Target, Me.Range("B1"))：精准限定触发条件，避免其他单元格操作误触发代码
• UCase(...)：统一转为大写判断，解决大小写输入差异导致的失效问题
• Application.ScreenUpdating = False：执行过程中关闭屏幕刷新，让行的隐藏/显示操作更流畅无闪烁

测试验证 #

回到Excel界面，点击B1选择Red或Blue，对应行将自动切换显示状态，前10行始终保持可见。

注意事项 #

• 保存文件时需选择「Excel启用宏的工作簿（*.xlsm）」格式，否则宏会丢失
• 打开文件时若弹出宏禁用提示，选择「启用内容」才能让代码生效

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