使用VBA在一行中复制几个值并在excel的同一行粘贴多次

我对VBA很新，我知道它有一个基本的疑问，但是无法find解决scheme。 我试图复制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）？ 谢谢

Answer 1

起初，我认为这是： Range("A1:A24").Copy Range("A25:A8760")或Range("A25:A8760").Value = Range("A1:A24").Value 。 然而，它并没有，因为上面的解决scheme仅在表单的“已用”部分进行复制。

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

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

UPD：

这段代码的作品：

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

笔记：

我使用Range("A25:A8760").Value = ""使该范围成为UsedRange一部分（否则行Range("A1:A24").Copy Range("A25:A8760")只复制“使用“表的一部分）

Answer 2

以下将复制并过去364次…

 Sub Macro1() Dim i As Integer Range("A1:A24").Select Selection.Copy For i = 1 To 364 Range("A" & 1 + i * 24).Select ActiveSheet.Paste Next i End Sub