如何用Excel VBA实现：基于上方单元格状态动态隐藏/显示指定区域行？

针对你需要的「根据上方单元格状态动态隐藏/显示行，始终仅保留填充行下一行可录入」的需求，修改代码如下，同时说明关键逻辑：

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dataRange As Range
    Dim currentRow As Long
    Dim lastRow As Long
    
    ' 定义生效的指定数据区域，示例为A2到A100，根据你的实际需求调整
    Set dataRange = Me.Range("A2:A100")
    
    ' 若修改的单元格不在指定区域内，直接退出程序
    If Intersect(Target, dataRange) Is Nothing Then Exit Sub
    
    ' 禁用事件触发，防止修改行状态时无限循环调用本程序
    Application.EnableEvents = False
    
    lastRow = dataRange.Rows(dataRange.Rows.Count).Row
    
    ' 遍历指定区域的所有行
    For currentRow = dataRange.Row To lastRow
        ' 跳过区域第一行，避免访问上一行时越界（假设区域第一行的上一行是标题）
        If currentRow > dataRange.Row Then
            ' 检查当前行的上方单元格是否为空
            If Me.Cells(currentRow - 1, dataRange.Column).Value = "" Then
                Me.Rows(currentRow).EntireRow.Hidden = True
            Else
                ' 上方单元格有值时，先确保当前行可见
                Me.Rows(currentRow).EntireRow.Hidden = False
                ' 仅保留当前行的下一行可见，其余更下方的行自动隐藏
                If Me.Cells(currentRow, dataRange.Column).Value <> "" And currentRow + 1 <= lastRow Then
                    Me.Rows(currentRow + 1).EntireRow.Hidden = False
                    ' 隐藏currentRow+2及以后的行（如果上方单元格为空）
                    Dim i As Long
                    For i = currentRow + 2 To lastRow
                        If Me.Cells(i - 1, dataRange.Column).Value = "" Then
                            Me.Rows(i).EntireRow.Hidden = True
                        End If
                    Next i
                End If
            End If
        End If
    Next currentRow
    
    ' 重新启用事件触发
    Application.EnableEvents = True
End Sub

关键逻辑说明 #

• 限定生效区域：通过dataRange指定你需要控制的单元格范围，避免整个工作表的修改都触发程序
• 防止循环触发：修改行隐藏状态时会再次触发Worksheet_Change，所以用Application.EnableEvents = False临时禁用事件，操作完成后再恢复
• 仅保留可录入行：当某行填入值后，自动显示下一行供录入，同时隐藏更下方未满足条件的行，确保界面整洁
• 边界防护：跳过区域第一行，避免访问不存在的上一行单元格导致报错

使用步骤 #

1. 右键点击目标工作表标签（比如「Sheet1」），选择「查看代码」
2. 将上述代码粘贴到弹出的VBA编辑器窗口中
3. 根据你的实际数据位置，修改dataRange的范围（比如需要控制B列到D列的2-200行，就改成Me.Range("B2:D200")）

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