删除工作簿命名范围时VBA触发400错误的问题咨询

这是个非常典型的遍历集合同时修改集合结构导致的问题！你用For Each循环遍历ActiveWorkbook.Names集合时，每删除一个名称，这个集合的元素数量和索引都会发生变化，循环的迭代器无法正确跟踪下一个元素，直接就触发了400错误。

两种可行的解决方案： #

1. 倒序遍历删除（最直接高效）

改用For循环从集合的最后一个元素往前遍历，这样即使删除后面的元素，前面元素的索引不会受到影响，循环可以完整执行：

Dim i As Integer
' 从最后一个名称开始，倒序遍历到第一个
For i = ActiveWorkbook.Names.Count To 1 Step -1
    ' 筛选不含"!"的全局命名范围（对应你的第一段代码逻辑）
    If InStr(ActiveWorkbook.Names(i).Name, "!") = 0 Then
        ActiveWorkbook.Names(i).Delete
    End If
Next i

如果是要删除所有命名范围（对应你的第二段代码），直接去掉If判断即可：

Dim i As Integer
For i = ActiveWorkbook.Names.Count To 1 Step -1
    ActiveWorkbook.Names(i).Delete
Next i

2. 先收集目标再批量删除（更安全，适合复杂筛选场景）

先遍历一遍集合，把需要删除的名称存入一个临时集合/数组，再遍历临时集合执行删除操作，避免直接修改原集合：

Dim delTargets As Collection
Set delTargets = New Collection

' 第一步：收集所有需要删除的全局命名范围
Dim xName As Name
For Each xName In ActiveWorkbook.Names
    If InStr(xName.Name, "!") = 0 Then
        delTargets.Add xName
    End If
Next

' 第二步：批量删除收集到的名称
Dim targetItem As Variant
For Each targetItem In delTargets
    targetItem.Delete
Next

额外提醒 #

• 运行代码前建议先备份工作簿，避免误删Excel内置的重要命名范围（比如打印区域Print_Area这类）；
• 如果遇到某些名称无法删除的情况，可能是该名称被工作表或公式引用，需要先解除引用再删除。

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