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

Question

在excel 2010中，我想将第1页（包括所有格式和数据，页面设置，分页符等）复制到sheet2。总之，我想在sheet2到sheet7上做一个sheet1的精确副本。理想情况下，我想在sheet1上插入命令单击按钮，这样一旦我完成输入数据，我可以单击按钮并复制每个工作表上的信息。有什么想法吗？

Answer 1

试试这个，

Sub test()
    Dim i As Integer

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

作为替代解决方案，我认为你应该创建一个按钮并将下面的代码分配给它。

这将选择您在sheet1上的所有工作表，然后您对sheet1所做的任何更改将立即在所有工作表上自动显示。

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