vba 데이터 지정수량만큼 반복채우기

Sub 지정수량만큼반복()
  Dim rng As Range
  Dim A()  As Variant
  Dim i As Long, k As Integer, n As Integer, r As Long
     rng = Range("b2").CurrentRegion
    For i = 2 To UBound(rng, 1) '1차 2행부터 마지막 행까지
       For k = 1 To rng(i, 7)   '2차 현범위 1열에서 7열까지
            n = n + 1
        ReDim Preserve A(1 To 7, 1 To n)
          For r = 1 To 6        '변수r-반복해서 인쇄할 열
              A(r, n) = rng(i, r): A(7, n) = k  '변수n-인쇄행,변수k-반복회수인쇄
'                    Range("k2").Resize(n, UBound(A)) = Application.Transpose(A)

           Next r
        Next k
    Next i
    Worksheets("출력").Range("A2:G" & Rows.Count).ClearContents
    Worksheets("출력").Range("A2").Resize(n, UBound(A)) = Application.Transpose(A)
End Sub

지정수량만큼반복.xls

지정수량만큼반복.xls

0.04MB