将数据复制到不同的工作表

Question

我在B2中的sheet1中有数据：G17，（有公式）。此表应该复制到其他50张表。下面的代码复制值，但不复制公式。如何修改代码以复制这些单元格中的公式？

Sub CopyPasteLoop()

Dim vRange As Variant
vRange = ActiveWorkbook.Worksheets(1).Range("B2:G17")

Dim i As Integer
For i = 2 To ActiveWorkbook.Worksheets.Count
    ActiveWorkbook.Worksheets(i).Range("B2:G17").Value = vRange
Next i

End Sub

公式取决于各张表中的数据。

Answer 1

这link to a previous question may help

我认为您可以使用

等替换循环中的行

src.Copy ActiveWorkbook.Worksheets（i）.Range（“B2：G17”）

我希望这会有所帮助。