复制一个单元格值并将其粘贴到多个单元格

Question

如果我在不使用任何VBA代码的情况下工作，则可以选择一个单元格，进行复制，然后选择一堆单元格并粘贴。 结果将是所有目标单元格都填充有源单元格中的任何值。

我将如何在VBA代码中执行此操作？

您会认为以下内容会起作用，因为它模仿了上述行为，但事实并非如此。 它将用该值填充目标范围的顶部单元格，其余单元格留空。

    Range("A1").Select
    Selection.Copy
    Range("B1:B12").Select
    ActiveSheet.Paste

Answer 1

您无需在VBA中使用复制和粘贴，可以在范围上设置值，如下所示：

Range("B1:B12").Value = Range("A1").Value