나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  0
파일:     split_rows.xlsm (16.4KB) 조회:  534
제목:   [RE]엑셀, 셀안에 데이터 분리하기
     
  '파일 첨부했습니다.


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
 
[불량 게시물 신고]  
참서리다음 YouTube 동영상에 자세히 설명되어 있습니다.
https://youtu.be/8KDHwyy1CKs

04-16 (13:25)
삭제 ■신고
        
  

작성일 : 2019-04-16(13:25)
최종수정일 : 2019-04-16(13:25)
 


 ◎ 관련글

  제 목   작성자   날짜
엑셀, 셀안에 데이터 분리하기 길인영 2019-04-15
[RE]엑셀, 셀안에 데이터 분리하기 dew 2019-04-16
[RE]엑셀, 셀안에 데이터 분리하기 길인영 2019-04-16
[RE]엑셀, 셀안에 데이터 분리하기 dew 2019-04-16
[RE]엑셀, 셀안에 데이터 분리하기 참서리 2019-04-16