VBA는 Range Offset입니다

Question

이름이 지정된 범위를 선택하고 복사하여 특정 행에 붙여 넣을 VBA 코드를 작성하려고합니다. 내가 알아야 할 것은 위의 셀에 해당하는 셀 범위를 선택하는 방법입니다.

예 : "MyRange"범위가 있습니다. "= $ a $ 1 : d $ 1 $, $ f $ 1, $ k $ 1". 나는 이것을 복사하고 "= $ 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

---

편집하다: 좋아, 그런 다음 (분리 범위에 대처하기 위해) :

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