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

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

这将按预期工作，前提是选择的列数与复制范围相同