Excel 将活动工作表上的标题设置为不同工作表上的单元格值

我试图做一些我认为很简单的事情，基本上，我试图将一张工作表中的标题设置为另一张工作表中某个单元格的值。我似乎无法让手机参考号正常工作。以下是我正在使用的代码：

Sub PrepareHeader()
   Sheet30.PageSetup.CenterHeader = "&""Arial,Bold""&18 " & 
Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value
End Sub

我无法从表1的A1中获取数据。有什么想法吗？

选项1 通过设置彼此相等的范围，将

A1

中的值从

Sheet1

传送到

Sheet2

Sub PrepareHeader()

ThisWorkbook.Sheets("Sheet2").Range("A1").Value = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

End Sub

---

选择2 使用复制和粘贴将

A1

中的值和格式从

Sheet1

传送到

Sheet2

Sub PrepareHeaderV2()

ThisWorkbook.Sheets("Sheet1").Range("A1").Copy

With ThisWorkbook.Sheets("Sheet2").Range("A1")
    .PasteSpecial xlPasteValuesAndNumberFormats
    .PasteSpecial xlPasteFormats
End With

End Sub

---

注:

---

调整

Sheet1

和

Sheet2

的值以满足您的需要。我怀疑这是您真正需要的，但希望您能看到正确的语法，并根据需要应用于实际问题。如果您正在处理多个工作簿，您可以在需要时将

此工作簿

交换为

活动工作簿

。类似地，

工作表（“Sheet1”）

可以与

ActiveSheet

交换。但是，我不建议这样做，因为依赖于

活动对象的代码并不总是可靠的
 先生，你真是个天才！谢谢。事实上，我以为它会奏效，但它不会。我需要设置：Sheet30.PageSetup.CenterHeader=等于Sheet1 A1中的值。请用文字解释您的意思，而不是代码缩写。