热心网友
回答时间：2022-06-17 23:33
建议
复制黏贴（可以用宏）
设置打印页表头
代码如下：
Sub Test()
Dim x
For Each x In ActiveSheet.Shapes
If Left(x.Name, 1) = "P" Then
With ActiveSheet.Shapes("图片 6").Duplicate
.Left = x.Left
.Top = x.Top
.Width = x.Width
.Height = x.Height
End With
x.Delete
End If
Next
End Sub
热心网友
回答时间：2022-06-17 23:34
热心网友
回答时间：2022-06-17 23:34
热心网友
回答时间：2022-06-17 23:35
热心网友
回答时间：2022-06-17 23:36
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
