这是我得到错误的地方。
有什么想法吗?
Application.Sheets(Array("Sheet1","Sheet2")).PageSetup.RightHeader = "HELLO"
谢谢!
答案 0 :(得分:0)
类似
Option Explicit
Sub aa()
Dim str As Variant
For Each str In Array("Sheet1", "Sheet2")
Application.Sheets(str).PageSetup.RightHeader = "HELLO"
Next str
End Sub