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

Question

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

たとえば、「= $ A $ 1：D $ 1 $、$ F $ 1、$ K$1」を参照する範囲「myRange」があります。これをコピーして、セル参照の文字列ではなく「myRange」を参照して、「= $ A $ 2：D $ 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