Excel VBA：如何实现各工作表页眉调用自身A6单元格值？

• 需求：封面工作表（Cover Sheet）的页眉显示自身A6单元格的“Schedule”值，其余工作表页眉显示各自A6单元格的日期。
• 现状：当前VBA代码把封面A6的“Schedule”统一显示在所有工作表页眉，无法实现各表调用自身A6值的效果。

原代码里的Range("a6").Value没有指定所属工作表，默认会引用当前活动工作表的A6单元格。循环执行时如果活动表是封面，所有工作表的页眉都会取封面的A6值，导致不符合需求。

Sub printless()
    Application.PrintCommunication = False
    Dim wkst As Worksheet
    
    ' 遍历所有工作表设置格式，按规则区分处理
    For Each wkst In ActiveWorkbook.Sheets
        With wkst.PageSetup
            ' 关键：指定引用当前循环工作表的A6单元格
            .CenterHeader = "&B&36" & wkst.Range("a6").Value
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .BottomMargin = Application.InchesToPoints(0.25)
            .HeaderMargin = Application.InchesToPoints(0.3)
            .FooterMargin = Application.InchesToPoints(0.3)
            .CenterHorizontally = True
            .CenterVertically = False
            .Orientation = xlPortrait
            .PaperSize = xlPaperLetter
            
            ' 针对封面和其他工作表设置差异化参数
            If wkst.Name = "Cover Sheet" Then
                .PrintArea = "$b$1:$ac$52"
                .Zoom = 75
                .TopMargin = Application.InchesToPoints(1)
            Else
                .PrintArea = "$a$6:$bb$108"
                .Zoom = 46
                .TopMargin = Application.InchesToPoints(0.6)
            End If
        End With
    Next wkst
    
    Application.PrintCommunication = True
    ActiveWorkbook.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

1. 指定工作表范围：把Range("a6").Value改成wkst.Range("a6").Value，确保每个工作表都引用自己的A6单元格值，不会出现跨表引用错误。
2. 整合重复代码：把封面的特殊设置（打印区域、缩放比例、上边距）整合到循环中，用条件判断区分处理，避免重复编写大量相同的PageSetup配置，提升代码简洁性和可维护性。

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