復制和粘貼從一個工作表到多個工作表的范圍

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