|
|
|
|
|
|
'파일 첨부했습니다.
Option Explicit
'---------------------------------------------
Sub split_rows()
'---------------------------------------------
Dim rngX As Range: Set rngX = Range("A1").CurrentRegion
Dim row As Range
Dim sName As String, sMaker As String, sNumber As String
Dim vMaker As Variant, vNumber As Variant
Dim i As Long
Dim colX As Collection: Set colX = New Collection
' 배열로 만들어 Collection에 집어넣기
'--------------------------
For Each row In rngX.Rows
'--------------------------
sName = row.Cells(1): sMaker = row.Cells(2): sNumber = row.Cells(3)
'제조사/수량 셀을 개행 문자를 기준으로 1차원 배열로 만들기
vMaker = Split(sMaker, Chr(10)): vNumber = Split(sNumber, Chr(10))
'------------------------------------------
For i = LBound(vMaker) To UBound(vMaker)
'------------------------------------------
colX.Add Array(sName, vMaker(i), vNumber(i))
Next i
'--------------------------
Next row
'--------------------------
Application.ScreenUpdating = False
'시트에 뿌리기
Dim rngY As Range: Set rngY = Range("A10")
rngY.CurrentRegion.ClearContents
For i = 1 To colX.Count
rngY.Resize(1, 3).Value = colX.Item(i)
Set rngY = rngY.Offset(1)
Next i
Application.ScreenUpdating = True
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-04-16(13:25)
최종수정일 : 2019-04-16(13:25) |
|
|
|
|