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

Question

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

など。私は "= $ A $ 1：D $ 1 $、$ F $ 1、$ K $ 1"を参照する範囲 "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 

---

EDIT：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