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

Question

我对 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) 吗？
谢谢

Answer 1

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

然后我想出了以下解决方案(仅复制值):

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

更新:

此代码有效:

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

备注:

我用了 Range("A25:A8760").Value = ""使这个范围成为 UsedRange 的一部分(否则行 Range("A1:A24").Copy Range("A25:A8760") 将仅复制到工作表的“已使用”部分)