VBA benannten Bereich Offset

Question

Ich versuche, VBA-Code zu schreiben, die einen benannten Bereich auswählen werden, kopieren und es für eine bestimmte Anzahl von Zeilen einfügen. Was ich wissen muss, wie man den Bereich von Zellen, zu denen entsprechend wählen oben.

z. Ich habe eine Reihe "myRange", das bedeutet: "= $ A $ 1: D $ $ 1, $ F 1, $ $ k $ 1" gesetzt. Ich mag diese kopieren und es in "= $ A $ 2: D $ 2 $, $ F 2, $ $ K $ 2". Unter Bezugnahme auf "myRange" anstelle von auf die Reihe von Zellreferenzen

Jede Hilfe?

Answer 1

So etwas wie das?

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

---

Bearbeiten : OK, so etwas wie diese dann (zu bewältigen disjunkten Bereiche):

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