Excel VBA命名范围偏移量

我正在尝试编写VBA代码，该代码将选择一个命名范围，复制它并将其粘贴到一定数量的行。我需要知道的是如何选择与上述单元格对应的单元格范围

例如，我有一个范围“myRange”，指“=$a$1:D$1$，$F$1，$K$1”。我想复制它并通过引用“myRange”而不是单元格引用字符串将其粘贴到“=$A$2:D$2$，$F$2，$K$2”中

有什么帮助吗？

像这样的吗

Sub Test()

    Dim oRange As Range
    Set oRange = ActiveSheet.Range("A1:D1") ' Change this to point at the range to be copied

    Dim i As Integer
    For i = 1 To 10
        oRange.Copy
        oRange.Offset(i, 0).PasteSpecial xlPasteAll
    Next i

End Sub

---

编辑：好的，类似这样的内容（用于处理不相交的范围）：

---

不工作，我需要的东西，将功能的多个选择，如“=$A$1:D$1$，$F$1，$K$1”更新，以满足不相交的范围。

Sub Test()

    Dim oRange As Range
    Set oRange = ActiveSheet.Range("A1,C1:D1") ' Change this to point at the range to be copied

    Dim i As Integer
    For i = 1 To 10
        Dim oArea As Range
        For Each oArea In oRange.Areas
            oArea.Copy
            oArea.Offset(i, 0).PasteSpecial xlPasteAll
        Next oArea
    Next i

End Sub