|
|
|
|
|
|
'-----------------------
Sub multi_lines()
'-----------------------
' 데이타 범위
Dim rX As Range: Set rX = [A2].CurrentRegion
' 결과 담을 Collection 선언
Dim colX As New Collection
Dim vRow As Variant
Dim iRow As Long
' 각 행을 돌며 [수량]열 값 만큼 같은 행 값을 Collection에 추가
'----------------------------------
For r = 1 To rX.Rows.Count
'----------------------------------
vRow = rX.Rows.Item(r).Value
' 제목 행
If r = 1 Then
colX.Add vRow
Else ' 데이타 행
'수량
iRow = vRow(1, 3)
' 수량만큼 추가하기
For c = 1 To iRow
colX.Add vRow
Next c
End If
Next r
'----------------------------------------------------
'Collection에 담긴 요소(2차원 배열)을 시트에 뿌리기
'----------------------------------------------------
' 뿌려질 시작 셀
Set rX = [G2]
' 기존 자료 지우기
rX.CurrentRegion.ClearContents
' 열의 수
Dim iCol As Long: iCol = UBound(colX.Item(1), 2)
' Collection의 각 요소를 돌며
'------------------------------
For Each x In colX
'------------------------------
'시트에 뿌리기
rX.Resize(1, iCol).Value = x
' 바로 아래 셀로 이동
Set rX = rX.Offset(1)
Next
'-----------------------
End Sub
'-----------------------
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-11-01(20:17)
최종수정일 : 2019-11-01(20:17) |
|
|
|
|