在VBA中使用工作表命名区域：For Each循环代码写法求助

首先明确核心问题：你定义的命名区域rngMonths存储的是工作表名称文本，而非工作表对象，因此不能直接将区域内的单元格赋值给Worksheet类型的变量rngMonth，需要先读取名称文本，再通过Worksheets对象获取对应的工作表实例。

以下是正确的循环代码实现：

' 确保公共变量已在标准模块顶部声明：Public rngMonth As Worksheet
Sub TraverseMonthWorksheets()
    Dim monthNameCell As Range
    Dim targetRange As Range
    
    ' 获取命名区域对应的单元格范围
    Set targetRange = ThisWorkbook.Names("rngMonths").RefersToRange
    
    ' 遍历命名区域中的每个单元格
    For Each monthNameCell In targetRange
        ' 尝试获取对应工作表对象，加入错误处理避免名称不存在时报错
        On Error Resume Next
        Set rngMonth = ThisWorkbook.Worksheets(monthNameCell.Value)
        On Error GoTo 0
        
        ' 成功获取到工作表后执行操作
        If Not rngMonth Is Nothing Then
            ' 这里替换为你需要执行的操作，示例：
            Debug.Print "正在处理工作表：" & rngMonth.Name
            ' rngMonth.Range("A1").Value = "已处理" ' 示例操作
        Else
            Debug.Print "警告：未找到名为「" & monthNameCell.Value & "」的工作表"
        End If
    Next monthNameCell
End Sub

关键说明 #

• 必须通过ThisWorkbook.Worksheets(工作表名称)将文本名称转换为Worksheet对象，才能赋值给rngMonth变量。
• 加入On Error Resume Next和On Error GoTo 0的错误处理，是为了避免命名区域中存在无效工作表名称时导致代码中断。
• 如果你的命名区域是多列多行的非连续范围，上述代码依然有效，会遍历区域内的每一个单元格。

内容的提问来源于stack exchange，提问作者Wayne C.