将范围从一个工作表复制并粘贴到多个工作表

我正在尝试将范围从一个工作表复制到同一工作簿中的大约600个工作表。

我发现了一些代码，使我能够复制范围并粘贴在下一个工作表的末尾。 下面的代码只将范围粘贴到1工作表（Sheet3）。 但我无法弄清楚如何循环它来粘贴所有其他工作表。 我如何添加一个循环到下面的代码来这样做？

Sub copypaste() Dim i As Long With Sheets("Sheet3") i = .Range("B" & Rows.Count).End(3).Row Sheets("Cert").Range("A1:K27").Copy .Range("A" & i + 1) End With End Sub 

Answer 1

如果用600张工作表，你的意思是你想复制到所有的工作表，然后考虑：

 For Each WS In Worksheets With WS i = .Range("B" & Rows.Count).End(3).Row Sheets("Cert").Range("A1:K27").Copy .Range("A" & i + 1) End With Next WS