将范围从一个工作表复制并粘贴到多个工作表-Java 学习之路

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

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

回复于 2024-04-27T04:34:49+08:00

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

1 回答

相关问题