使用VBA复制一行中的几个值并将其多次粘贴到Excel的同一行中

我对 VBA 很陌生。我知道这是一个基本的疑问，但在任何地方都找不到解决方案。我正在尝试复制 24 个 (A1:A24) 值并将其多次粘贴到 (A25:A8760) 中。我能够复制单个值并将其粘贴多次。我无法对多个值执行此操作。

Sub Macro1()

Range("a1").Select
Selection.Copy

Range("a2:a30").Select

ActiveSheet.Paste     

End Sub

如果我有多个值，我该怎么做？

Sub Macro1()

Range("a1:a24").Select
Selection.Copy

现在我需要将上面的24个值连续粘贴到（A25：A8760）？ 谢谢

起初我是这样想的：Range("A1:A24").Copy Range("A25:A8760") or Range("A25:A8760").Value = Range("A1:A24").Value应该管用。然而事实并非如此，因为上述解决方案仅复制到工作表的“已使用”部分。

然后我想出了以下解决方案（仅复制值）：

With Range("A25:A8760")
    .Formula = "=A1"
    .Value = .Value
End With

UPD:

这段代码有效：

Range("A25:A8760").Value = ""
Range("A1:A24").Copy Range("A25:A8760")

Notes:

I used Range("A25:A8760").Value = ""使该范围成为一部分UsedRange（否则行Range("A1:A24").Copy Range("A25:A8760")只会复制到工作表的“已使用”部分）