如何用VBA将Excel右页眉内容复制到单元格？现有代码无法实现

你原来的代码失效的核心原因：PageSetup.RightHeader是一个字符串属性，它根本没有Copy方法，调用.Copy既不会把内容放到剪贴板，也没法完成后续粘贴操作。

不需要绕剪贴板，直接把右页眉的内容赋值给单元格是最直接高效的方案：

Sub CopyrightHeader()
    ActiveSheet.Range("J1").Value = ActiveSheet.PageSetup.RightHeader
End Sub

如果你的右页眉包含格式控制代码（比如&B代表加粗、&I代表斜体、&KFF0000代表红色这类），想要只保留纯文本内容，可以用下面的代码清理格式代码：

Sub CopyrightHeaderClean()
    Dim headerText As String
    headerText = ActiveSheet.PageSetup.RightHeader
    
    ' 移除常见的页眉格式控制代码
    headerText = Replace(headerText, "&B", "")
    headerText = Replace(headerText, "&I", "")
    headerText = Replace(headerText, "&U", "")
    headerText = Replace(headerText, "&C", "")
    headerText = Replace(headerText, "&L", "")
    headerText = Replace(headerText, "&R", "")
    ' 移除颜色代码前缀
    headerText = Replace(headerText, "&K", "")
    
    ' 赋值到目标单元格
    ActiveSheet.Range("J1").Value = headerText
End Sub

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