Dim EachSheet As Worksheet For Each EachSheet In ThisWorkbook.Sheets EachSheet.PageSetup.RightFooter = "页脚文字插入当前日期:" & Format(Date, "yyyy年m月d日") EachSheet.PageSetup.LeftHeader = "页眉标题文字左对齐" EachSheet.PageSetup.CenterHeader = "页眉标题文字居中对齐" Next EachSheet