표 분리

지식인에 올라온 질문

셀 안에 여러개의 데이터가 있는데

이를 분리해서 각 셀에 입력하는 매크로

Sub Macro()
 
    Dim i%, j%
    Dim v적용, v명, v함량
    
    For i = Cells(Rows.Count, "G").End(3).Row To 5 Step -1  '가장 아래 행부터 위로 거꾸로 올라감
    
        With Cells(i, "G")
        
            v적용 = Split(.Value, vbLf) '적용 데이터를 배열에 삽입
            v명 = Split(.Offset(, 2), vbLf) '명 데이터를 배열에 삽입
            v함량 = Split(.Offset(, 4), vbLf)   '함량 데이터를 배열에 삽입
        
            If UBound(v적용) > 1 Then
            
                For j = 1 To UBound(v적용)  '적용 데이터 수만큼 순환
                
                    Rows(i).Copy    '행 복사하여 삽입
                    Rows(i).Insert shift:=xlDown
                    
                Next j
                
                With .Offset(-j + 1).Resize(UBound(v적용) + 1)  '각 셀에 분리된 적용, 명, 함량 데이터 삽입
                
                    .Value = Application.Transpose(v적용)
                    .Offset(, 2) = Application.Transpose(v명)
                    .Offset(, 4) = Application.Transpose(v함량)
                    
                End With
                
                Application.CutCopyMode = False '복사모드 해제
                    
            End If
                    
        End With
        
        Erase v적용
        Erase v명
        Erase v함량
        
    Next i
    
    Columns("K").NumberFormatLocal = "0%"   '백분율 0단위로 변경
 
End Sub

예시.xlsm