从1张到另一张的精确副本

-1

已经提出了类似的问题，所以请随身携带。从1张到另一张的精确副本

在Excel 2010中，我想复制图纸1，包括所有格式和数据，页面设置，分页符等到sheet2上。总之，我想在sheet2到sheet7上完成sheet1的精确副本。理想情况下，我想在sheet1上插入一个命令点击按钮，这样一旦完成输入数据，我可以点击按钮并复制每张表上的信息。有任何想法吗？

除了插入按钮，并定义它的宏，你可以更容易右键单击工作表标签，然后选择到纸上复印。 –

但是如果你真的想要这个按钮，你会记录下一个宏，这个复制表单的动作非常复杂。 –

您是否已经将Sheet2添加到现有工作簿中的Sheet7中？ –

试试这个，

Sub test() 
    Dim i As Integer 

    For i = 2 To 7 
     Sheets("Sheet1").Cells.Copy Sheets("Sheet" & i).Cells 
    Next i 
End Sub

作为一种替代解决方案，我想你应该创建一个按钮，代码如下分配给它。

当您在工作表1上时，将选择所有工作表，然后对工作表1所做的任何更改将立即自动应用于所有工作表。

Sub test() 
    Dim ws As Worksheet 
    For Each ws In Sheets 
     If ws.Visible Then ws.Select 
    Next 
End Sub

2017-10-18 09:02:47

Imran。我试过你的方法。再次添加另一张纸，并不会更新纸张2-7 –

Imran。关于将工作表1复制到工作表2-7，我有一切工作。唯一不能解决的是分页符。我希望分页预览与sheet1相同。希望这可以帮助 –

选择所有工作表并插入它应该为所有工作做的分页符。 –

回答