需求：编写VBA代码，工作表A的D1:D10变更时自动隐藏工作表B指定空行

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws2 As Worksheet
    Dim a As Integer
    
    Set ws2 = ThisWorkbook.Sheets("B")
    
    ' 判断变化的单元格是否在D1:D10范围内
    If Not Intersect(Target, Me.Range("D1:D10")) Is Nothing Then
        ' 先取消1-10行的隐藏状态，避免历史状态干扰
        ws2.Rows("1:10").Hidden = False
        
        ' 遍历1-10行，检查B列是否为空，为空则隐藏该行
        For a = 1 To 10
            If Len(Trim(ws2.Range("B" & a).Value)) < 1 Then
                ws2.Rows(a).Hidden = True
            End If
        Next a
    End If
End Sub

原代码存在的问题 #

• 事件类型错误：Worksheet_SelectionChange是选中单元格时触发，而非单元格值变化触发，应使用Worksheet_Change事件
• 区域判断逻辑错误：直接对比Target.Address与目标区域地址不严谨，当Target包含多个单元格时会失效，需用Intersect判断单元格是否在目标区域内
• 列引用错误：需求要求检查工作表B的B列，原代码误引用为D列
• 工作表未明确指定：Rows(a).Hidden未指定操作的工作表，会默认修改当前激活的工作表，需明确指定为工作表B
• 逻辑判断偏差：原代码判断Len>1，与需求中“B列单元格为空（长度小于1）则隐藏”的逻辑不符，且未处理单元格仅含空格的情况（新增Trim处理该场景）

代码说明 #

• 代码需放在工作表A的代码窗口中（右键工作表A标签→查看代码）
• Trim用于去除单元格内容前后空格，避免仅含空格的单元格被误判为非空
• 先取消1-10行的隐藏状态，再重新判断隐藏，确保每次值变化后状态准确更新

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