VBA将粘贴范围复制到包含内容的行的相应范围中

Question

我有一个名为“ SicknessRecordGraded”的电子表格，该电子表格具有不同数量的行。
A-F列（1-6）具有要计算的原始内容。
然后在I-AG列（9-33）中，有一系列公式可以计算A-F中的信息。
我正在准备一个vba宏，以自动将I-AG中的公式范围复制到A-F中有内容的每一行中。
我一直在尝试如下编写宏。 我可以使用.resize函数复制正确的范围，但是我还没有弄清楚如何粘贴到正确的范围内。

    Public Sub experiment2()


Dim rw As Long
rw = 3

    ' Select initial sheet to copy from
    Sheets("SicknessRecordGraded").Select


    ' Find the last row of data - xlUp will check from the bottom of the spreadsheet up.
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    ' For loop through each row
    For x = 1 To FinalRow

            Cells(rw, 9).Resize(1, 33).Copy ' Resize from intial range. Columns I - AG.

             NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 'Continue incrementing through the rows.
            Cells(NextRow, 1).Select ' Find the next row.
            ActiveSheet.Cells(NextRow, "I").PasteSpecial xlPasteAll ' Paste information.
            Sheets("SicknessRecordGraded").Select 'Reselect sheet to copy from. Probably uneccessary.

    Next x
End Sub

我认为要修改的行是

ActiveSheet.Cells(NextRow, 1).PasteSpecial xlPasteAll ' Paste information.

包括另一个范围函数。

Answer 1

如果您希望开始粘贴的范围是Cells(NextRow, 1)则只需使用：

ActiveSheet.Cells(NextRow, 1).PasteSpecial xlPasteAll

要么：

ActiveSheet.Paste Cells(NextRow, 1)