VBA场景删除宏仅删除奇数宏

Question

您好我写了一个VBA宏来删除我的内容如果我有84个方案，它们被命名为1,2,3,4，....，84所以我写了这段代码

Sub Dismantle()
For Count = 1 To 84
    ActiveSheet.Scenarios(Count).Delete
Next

End Sub

但它只删除方案1,3,5,7,9 .....然后返回错误：无法获取工作表类的Scenarios属性。 这意味着没有具有名称计数的方案可以删除（我认为无论如何）
再次运行它会再次删除第一个第三个，所以它会跳过每一个场景。

Answer 1

Sub Dismantle()
    For Count = 84 to 1 step -1
        ActiveSheet.Scenarios(Count).Delete
    Next
End Sub

你是如此亲密： - ）

或者，为了更加灵活：

Do While ActiveSheet.Scenarios.Count > 0
    ActiveSheet.Scenarios(1).Delete()
Loop