VBA需求：逐批取消Excel指定多行区域隐藏（无需currentStage）

原代码的问题在于使用currentStage < n的逻辑会重新隐藏未到阶段的行，和你只需要取消隐藏的需求冲突，而且漏掉了最后一个58:61区域。以下是适配需求的修改方案：

修改后的代码 #

Sub UnhideObjectives()
    Static currentStage As Integer
    ' 存储需要逐批显示的四个行区域
    Dim targetRanges As Variant
    targetRanges = Array("34:37", "42:45", "50:53", "58:61")
    
    With ActiveSheet
        ' 只在未完成所有区域显示时执行操作
        If currentStage < UBound(targetRanges) + 1 Then
            ' 取消当前阶段对应区域的隐藏
            .Rows(targetRanges(currentStage)).EntireRow.Hidden = False
            ' 进度前进一格
            currentStage = currentStage + 1
        End If
    End With
End Sub

代码说明 #

• Static currentStage：保存每次点击后的进度，宏执行结束后不会重置，下次点击能继续上次的进度
• targetRanges数组：把四个目标行区域集中管理，方便后续调整或扩展
• 逻辑判断：只有当还有未显示的区域时，才取消对应区域的隐藏，避免重复操作或误隐藏行
• 四次点击后，所有区域都会显示，后续点击按钮不会产生任何变化

小提示 #

如果需要重置显示进度，关闭Excel重新打开即可（Static变量会随进程重置），或者打开VBA编辑器的立即窗口输入currentStage = 0并回车。

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