如何从命名区域列表中选取并通过宏逐个打印指定命名区域？

假设你存储需打印命名区域名称的列是Sheet1的A列（可根据实际修改），以下是实现循环打印的VBA代码，核心就是通过单元格的Value属性获取命名区域名称，再关联到对应的打印区域：

Sub PrintNamedRanges()
    Dim nameSheet As Worksheet
    Dim nameCell As Range
    Dim lastRow As Long
    Dim targetRange As Range
    
    ' 设置存储命名区域名称的工作表，根据实际修改
    Set nameSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取存储名称的最后一行（假设从A1开始）
    lastRow = nameSheet.Cells(nameSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历每个存储名称的单元格
    For Each nameCell In nameSheet.Range("A1:A" & lastRow)
        ' 跳过空单元格
        If Trim(nameCell.Value) <> "" Then
            On Error Resume Next
            ' 根据单元格值获取对应的命名区域
            Set targetRange = ThisWorkbook.Names(nameCell.Value).RefersToRange
            On Error GoTo 0
            
            ' 如果命名区域存在
            If Not targetRange Is Nothing Then
                ' 设置当前工作表的打印区域
                targetRange.Worksheet.PageSetup.PrintArea = targetRange.Address
                ' 执行打印（可根据需求修改参数，比如是否显示打印对话框）
                targetRange.Worksheet.PrintOut
                ' 清空打印区域（可选）
                targetRange.Worksheet.PageSetup.PrintArea = ""
                Set targetRange = Nothing
            End If
        End If
    Next nameCell
End Sub

关键说明： #

• nameCell.Value是核心写法，直接取出单元格内的文本作为命名区域名称，关联到对应的打印区域。
• 加入错误处理避免因命名区域不存在导致宏崩溃。
• 打印前自动切换到命名区域所在工作表，确保只打印目标区域。
• 若需弹出打印对话框选择打印机等，可把PrintOut修改为PrintOut Prompt:=True或PrintPreview。

内容的提问来源于stack exchange，提问作者Jack van Hoof