VBA名前付き範囲のオフセット

Question

私は、名前付き範囲を選択し、それをコピーして、行の特定の数のためにそれを貼り付けますVBAコードを記述しようとしています。私が知っている必要がありますすることは上記のものに対応するセルの範囲を選択する方法である。

例えば。 "= $ A $ 1：D $ 1 $、$ F $ 1、$ K $ 1" 私は範囲を指す "myRange" を有します。私はこれをコピーして、それを貼り付ける。：セル参照の文字列の代わりに "myRange" を参照して、 "= $ A $図2D $ 2 $、$ F $ 2、$ K $ 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