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

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

1 个答案: