VBA中如何用For Each循环处理指定的静态命名范围

原代码说明 #

你编写的Test1可遍历工作簿中所有命名范围，筛选出当前活动工作表的命名范围并弹窗显示：

Sub Test1()
For Each namedRanges In ActiveWorkbook.Names
    If namedRanges.RefersToRange.Parent.Name = ActiveSheet.Name Then MsgBox namedRanges.Name
Next namedRanges
End Sub

原Test3的错误分析 #

你尝试的Test3存在两个核心错误：

• 声明的nameArr是Integer类型的数字下标数组，VBA中这类数组不支持用字符串（如"Page1"）作为索引赋值，会触发类型不匹配错误。
• 数组设计不符合需求：你需要存储命名范围名称，而非给名称绑定数字标识。

正确实现方案 #

要实现用For Each循环处理静态指定的命名范围，直接用字符串数组存储目标命名范围名称即可，同时增加存在性校验避免报错：

Sub Test3_Fixed()
    ' 静态指定需要处理的命名范围名称
    Dim targetNames As Variant
    targetNames = Array("Page1", "Page2", "Page3")
    
    Dim nameStr As Variant
    Dim targetName As Name
    
    ' For Each遍历数组中的每个命名范围名称
    For Each nameStr In targetNames
        ' 先校验命名范围是否存在，防止拼写错误导致崩溃
        On Error Resume Next
        Set targetName = ActiveWorkbook.Names(nameStr)
        On Error GoTo 0
        
        If Not targetName Is Nothing Then
            ' 沿用Test1的逻辑：判断是否属于当前活动工作表
            If targetName.RefersToRange.Parent.Name = ActiveSheet.Name Then
                MsgBox targetName.Name
            End If
        Else
            MsgBox "命名范围 '" & nameStr & "' 不存在"
        End If
    Next nameStr
End Sub

代码说明 #

• 用Array()快速创建存储命名范围名称的数组，适合静态指定的场景。
• 增加On Error语句处理命名范围不存在的情况，提升代码稳定性。
• 保留了你原有的业务逻辑：仅弹窗显示当前活动工作表中的目标命名范围。

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