将数据粘贴到活动单元格中

Question

我写了一个很简单的代码

Sub copy_unibeton_muss()
Worksheets("source").Range("a8:c8").Copy
End Sub

代码将复制范围 A8:C8。我添加了另一部分以将活动单元格粘贴到活动选定范围内。

Destination:=ActiveCell

但不幸的是，代码只粘贴了第一行的数据。我需要在所有选定范围内粘贴数据，可能是 5x3 或 6x3 任何我需要的。

Answer 1

使用

Worksheets("source").Range("a8:c8").CopY Destination:= Selection

如果选择具有相同数量的复制范围列，这将按预期工作

paste data into active cells