复制和粘贴从一个工作表到多个工作表的范围

Question

我正在尝试将一个工作表的范围复制到同一工作簿中的大约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