嘿，这个问题我之前做类似VBA工具时也踩过坑！大概率是你的事件触发代码没考虑到**单元格内容被清空（变成空值）**的情况——多数时候我们写下拉列表的逻辑，只会聚焦选中某选项的场景，却忽略了用户删除内容这个操作。

首先，确保你的代码是写在下拉列表所在工作表的代码模块里（不是标准模块），用Worksheet_Change事件才能捕捉到单元格内容的所有变化（包括清空）。下面是调整后的代码，专门处理了空值场景：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义你的下拉列表目标单元格，比如这里是A1，按需修改
    Dim targetDropdownCell As Range
    Set targetDropdownCell = Me.Range("A1")
    
    ' 只处理目标单元格的变化，避免其他单元格误触发
    If Not Intersect(Target, targetDropdownCell) Is Nothing Then
        Dim ws As Worksheet
        Dim selectedValue As String
        
        ' 转为字符串并去除首尾空格，确保空值判断准确
        selectedValue = Trim(targetDropdownCell.Value)
        
        ' 遍历需要控制行显示/隐藏的工作表（按需修改范围）
        For Each ws In ThisWorkbook.Worksheets
            ' 跳过下拉列表所在的工作表
            If ws.Name <> Me.Name Then
                ' 如果工作表有保护，先取消保护（替换成你的密码，没有就注释掉）
                ws.Unprotect Password:="yourPasswordHere"
                
                ' 核心：处理单元格被清空的情况
                If selectedValue = "" Then
                    ' 清空时显示所有行，你也可以改成隐藏特定行的逻辑
                    ws.Rows.Hidden = False
                Else
                    ' 这里替换成你原来的下拉选项判断逻辑
                    Select Case selectedValue
                        Case "客户A"
                            ws.Rows("3:8").Hidden = True
                            ws.Rows("9:15").Hidden = False
                        Case "客户B"
                            ws.Rows("3:8").Hidden = False
                            ws.Rows("9:15").Hidden = True
                        ' 继续添加更多下拉选项的逻辑
                        Case Else
                            ' 若出现下拉列表外的值（虽然数据验证限制，但防万一），默认显示所有行
                            ws.Rows.Hidden = False
                    End Select
                End If
                
                ' 重新保护工作表（没有保护就注释掉）
                ws.Protect Password:="yourPasswordHere"
            End If
        Next ws
    End If
End Sub

• 空值判断：用Trim(selectedValue) = ""确保无论是直接删除内容，还是输入空格后删除，都能被识别为空值场景
• 事件范围限制：Intersect(Target, targetDropdownCell)保证只有目标单元格变化时才运行代码，避免无关操作触发，提升性能
• 灵活调整逻辑：如果清空单元格时你不想显示所有行，而是要隐藏特定行，直接把ws.Rows.Hidden = False改成你需要的行隐藏代码即可
• 工作表保护处理：如果你的目标工作表有保护，一定要加解锁和重新保护的代码，否则行隐藏/显示操作会失败

保存文件为.xlsm格式（启用宏的格式），然后用删除键清空下拉列表单元格，看看其他工作表的行是否按预期响应。如果还是没反应，检查一下目标单元格的引用是否正确，或者有没有启用宏。

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