VBA命名範圍偏移量

Question

我正在嘗試編寫將選擇命名範圍的VBA代碼，將其複製並粘貼一定數量的行。我需要知道的是如何選擇與上述單元格對應的單元格區域。

E.g.我有一個範圍「myRange」，它指的是：「= $ 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 

---

編輯：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