VBA命名范围偏移

Question

我想写VBA代码，将选择命名的区域，将它复制并粘贴了一定的行数。我所需要知道的是如何选择对应于上述的那些细胞的范围内。

E.g。我有一个范围 “myRange”，其指： “= $ A $ 1：d $ 1 $，$ F $ 1，$ $ķ1”。我想复制本，并将其粘贴在：通过参照 “myRange” 中代替 “= $ A $ 2 d $ 2 $，$ F $ 2，$ķ$ 2” 到单元格引用的字符串

任何帮助？

Answer 1

像这样？

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

---

修改：OK，像这样然后（应付不相交范围）：

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